我有一张大约有30万行的工作表。我根据日期应用过滤。过滤后,工作表如下所示;
A1 - Header
A2 - Header
A243349 - First data
为了复制和粘贴,我想获得A243349作为地址。我尝试了下面的代码,它找到正确的行,但是它给出的是“ First Data”而不是“ A243349”
Dim DataRange As Range
Dim FirstFilteredRow As Range
With Sheets("MySheet")
Set DataRange = Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
Set FirstFilteredRow = DataRange.Offset(2, 0).SpecialCells(xlCellTypeVisible).Areas(1).Rows(1)
在此先感谢您的帮助。
最诚挚的问候,