[땡큐엑셀vba & 엑셀매크로] 필터적용후 보이는셀만 복사

7/3에 필터적용

 

31시트에 보이는 값만 복사

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=1040103&docId=280190504
'
'vba 초보입니다 그림과 파일과 같이 해당 열로 필터 후 값이 보이는 행만 복사하는 vba를 만들고자합니다


'
'source by 땡큐엑셀vba & 엑셀매크로
'
Sub 보이는셀만복사()
    
    '출력행의 시작
    i = 7
    k = 0
    iDay = Range("A1") '선택열
    'iDay = Range("A1") '날짜
    'iStart = 13 '13은 M열.. 1:A, 2:B ....
    
    마지막행 = Range("C" & Rows.Count).End(xlUp).Row
    For Each rngC In Range("C4:C" & 마지막행)       'C4셀부터 마지막셀까지 순환
    
        If Rows(rngC.Row).Hidden = True Then        '만약 행이 숨겨져 있다면
            'Skip
        Else
            '31시트의 8행부터 시작
            i = i + 1
            
            'No번호
            k = k + 1
            Sheets("31").Cells(i, "A") = k
            Sheets("31").Cells(i, "D") = rngC
            Sheets("31").Cells(i, "E") = rngC.Offset(0, 1)
            'Sheets("31").Cells(i, "F") = Cells(rngC.Row, iStart + iDay)
            Sheets("31").Cells(i, "F") = Cells(rngC.Row, iDay)
        End If
     Next rngC


     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub

필터후보이는값만복사하기-Hidden_Offset-땡큐엑셀vba.xlsm

0.09MB