如何將資料（沒有隱藏儲存格）貼上到具有隱藏列的工作表中

Question

是否可以防止資料在一次複製/貼上操作中貼上到隱藏列中，而不必多次複製/貼上？

Answer 1

我想建議透過跳過隱藏列來貼上資料的相對最佳和最快的方法。

複製貼上之前：

貼後：

注意 您可以發現巨集已跳過hidden Column H，而從 Range 貼上資料A1:C9。

怎麼運作的：

• 隱藏欄/欄，此貼文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其中 Source 為要複製的位置， G1Target 為貼上複製資料的位置。
• 您也可以調整儲存格引用/資料範圍。