过滤后的行地址

时间:2018-11-05 14:15:51

标签: excel vba autofilter

我有一张大约有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)

在此先感谢您的帮助。

最诚挚的问候,

1 个答案:

答案 0 :(得分:3)

您需要调用Range.Address property来检索单元格的地址

Debug.Print FirstFilteredRow.Address