粘贴复制粘贴，粘贴后隐藏。

Question

请帮我处理这段代码。我想要的只是复制一个数据并粘贴到单元格中，并将其隐藏起来。但是在使用我的代码并粘贴它之后，仍然是可见的。如何使vba代码在粘贴后隐藏单元格？请帮帮我。谢谢。

Sub selectVisibleRange()
   Dim DbExtract, DuplicateRecords As Worksheet
   Set DbExtract = ThisWorkbook.Sheets("Sheet2")
   Set DuplicateRecords = ThisWorkbook.Sheets("Sheet1")

   DbExtract.Range("X:X").SpecialCells(xlCellTypeVisible).Copy
   DuplicateRecords.Cells(1, 3).PasteSpecial Paste:=8
End Sub

Answer 1

我现在知道我的问题的答案了。

Private Sub CommandButton1_Click()

Dim DbExtract, DuplicateRecords As Worksheet
Set DbExtract = ThisWorkbook.Sheets("Sheet2")
Set DuplicateRecords = ThisWorkbook.Sheets("Sheet1")

DbExtract.Range("E:E").SpecialCells(xlCellTypeVisible).Copy
DuplicateRecords.Cells(1, 1).PasteSpecial
DuplicateRecords.Cells(1, 1).EntireColumn.Hidden = True


End Sub