|
tomi さん、こんにちわ。
> .Range("B1:H500000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= .Range("C1000000:H1000001"), CopyToRange:=.Range("B1000010:H1000010"), Unique :=True
> 質問は取得したデータのある行Noを取得したいと思っています。
XL2007ですねw
AdvancedFilterで"CopyToRange"で指定した範囲は、フィルタ時に『Extract』という名前がつく(数式リボンの「定義された名前」で確認できます)のでこれを利用しました。
Sub Macro1()
With Application.ActiveSheet
'抽出
MsgBox .Names("Extract").RefersToLocal, vbInformation, "CopyToRange.Address"
'データ範囲もCurrentRegionでいけるかな
MsgBox .Names("Extract").RefersToRange.CurrentRegion.Address(external:=True), vbInformation, "Result"
End With
End Sub
こんな感じです。
|
|