excel - 比较列并选择行

Question

如何从 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

Answer 1

根据您需要实现的目标，我认为复制/剪切 J 列中的数据（从 J2 到 Jxxx）然后粘贴到 F 列的数据底部，然后在 F 列上进行数据排序会容易得多。不需要 VBA 代码！