如何从过滤的列复制单个单元格

Question

我正在尝试从过滤的列中复制单个单元格，所有单元格都具有相同的值（文档的日期），现在宏仅专门复制了单元格D2。我希望它复制与过滤列表相对应的日期。有没有可以指定第一个可见单元格的语法？

Sub Macro12()
'
' Macro12 Macro
'

'
Sheets("INBD").Select
Range("D2").Select
Selection.Copy
Sheets("Sheet1").Select
Range("J1:K2").Select
ActiveSheet.Paste
End Sub

Answer 1

假设您在D1中有标题行，这应该可以为您解决问题。它将选择D1之后的第一行，并将其复制到J1:K2

Sub test()

    Sheets("INBD").Range("D2", Cells(Rows.count, "D").End(xlUp)).SpecialCells(xlCellTypeVisible).Cells(1, 1).copy _
        Destination:=Sheets(1).Range("J1:K2")

End Sub