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

【问题标题】：How to copy a single cell from a filtered column如何从过滤列中复制单个单元格
【发布时间】：2018-08-06 15:23:10
【问题描述】：

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

Sub Macro12()
'
' Macro12 Macro
'

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

【问题讨论】：

标签： vba excel

【解决方案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

【讨论】：

非常感谢