0

列 J から各数値を取得し、その数値が列 F にあるすべての行を選択するにはどうすればよいですか? 例：

  • J列の最初の数字を取る（11123）
  • 列 F を検索し、最初の数字 (11123) が値であるすべての行を選択します
  • J列から次の数字を取る（11124）
  • 列 F を検索し、前の検索で選択した行、番号 (11124) を含む行に追加します。
  • 列 J の最後まで続きます

ここに画像の説明を入力

これを試してみましたが、エラーが発生しました：

Sub qTest()

Sheets("Sheet1").Activate
Dim fRNG As Range
Dim aRNG As Range

Set fRNG = Sheets("Sheet1").Range("F2", Sheets("Sheet1").Range("F2").End(xlDown))
Set aRNG = Sheets("Sheet1").Range("J2", Sheets("Sheet1").Range("J2").End(xlDown))

aRNG.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=fRNG, Unique:=False

Dim aADD As String
aADD = aRNG.SpecialCells(xlCellTypeVisible).Address

aRNG.Parent.ShowAllData

Range(aADD).EntireRow.Select

End Sub
4

1 に答える 1

0

あなたが達成する必要があることで、列J（J2からJxxxまで）のデータをコピー/カットし、列Fのデータの下部に貼り付けてから、列Fでデータソートを行う方がはるかに簡単だと思います.VBAコードは必要ありません!

于 2013-10-03T01:27:28.657 に答える