VBAにて特定文字(セル)抽出
例
Sheet2
(E列) (F列)
3
41 兵庫高速道路 33333
42 阪神高速道路 55555
52
63
64 阪神高速道路 66666
Sheet2のE41からデータのある所(約200)までの決まった文字「阪神高速道路」とその隣(F列)のセットセルを抽出し、Sheet3のF3へ順にコピーしたいと思います。
*Sheet2のE41以降は空白ありません。
結果
Sheet3
(F列) (G列)
3 阪神高速道路 55555
4 阪神高速道路 66666
5
6
7
となるように。
Dim Cr As Range
With Sheets(2)
Set Cr = .Range("E1:F1")
Cr.Item(1).Formula = "=E41"
Cr.Item(2).Value = "'=阪神高速道路"
.Range("E41").CurrentRegion.AdvancedFilter _
xlFilterCopy, _
CriteriaRange:=Cr, _
CopyToRange:=Sheets(3).Range("F3")
End With
うまく抽出できません。お願い致します。
お礼
ご回答、ありがとうございます。 はじめてみた車なのでどんな車なのかと思って興味ありました。 けっこう高い車なんですね。