숨겨진 열이 있는 워크시트에 숨겨진 셀이 없는 데이터를 어떻게 붙여넣나요?

Question

숨겨진 열을 건너뛰어 데이터를 붙여넣는 가장 빠르고 빠른 방법을 제안하고 싶습니다.

복사하여 붙여넣기 전:

붙여넣기 후:

주의 보시다시피 매크로는 을 건너뛰고 hidden Column HRange 에서 데이터를 붙여넣습니다 A1:C9.

작동 방식:

열 숨기기(Hide Column/Columns), 이 게시물이 Col H숨겨집니다.
어느 하나마우스 오른쪽 버튼으로 클릭그만큼시트 탭& 팝업 메뉴에서 클릭코드 보기, 또는Alt+F11, VB 편집기를 얻으려면.

복사&반죽이 VBA 코드(매크로)는표준 모듈그 다음에달리다매크로테스트복사붙여넣기.

Sub TestCopyPaste()

CopySkippingHidden ActiveSheet.Range("A1:C9"), _
  ActiveSheet.Range("G1")

  End Sub

Sub CopySkippingHidden(rngToCopy As Range, pasteStart As Range)

    Dim c As Range


    For Each c In rngToCopy.Columns

        Do While pasteStart.EntireColumn.Hidden
            Set pasteStart = pasteStart.Offset(0, 1)
        Loop
        c.Copy pasteStart

        Set pasteStart = pasteStart.Offset(0, 1)

    Next c

End Sub

ActiveSheet.Range("A1:C9")& ActiveSheet.Range("G1")편집 가능합니다.
A1:C9복사할 원본은 어디에 있고, G1복사한 데이터를 붙여넣을 대상은 어디입니까?
셀 참조/데이터 범위도 조정할 수 있습니다.

Answer 1