比较列和选择行

Question

如何从J列中取出每个数字，并选择该数字在F列中的所有行？ 示例：

• 从第J栏（11123）
取第一个数字
• 搜索列F并选择第一个数字（11123）为值
的所有行
• 从列J（11124）
获取下一个数字
• 将列F和ADD搜索到上一次搜索中的选定行， 包含数字（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代码！