比較列的和選擇行

如何從J列中獲取每個數字，然後選擇F列中的數字所在的行。實施例：比較列的和選擇行

採取從J列（11123）
搜索F列第一數目和選擇所有的行的是第一個數字（11123）是值
採取下一個數從J列（11124）
搜索列F和添加到從先前的搜索選擇的行，即包含數（11124）
依此類推，直到柱的端Ĵ

行

enter image description here

我試試這個，但我得到錯誤：

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

來源

2013-10-02 Art-of-Life

你的一塊拼圖會增加你選擇的範圍。這是一個[可靠的答案]（http://stackoverflow.com/questions/10692213/excel-vba-how-to-extend-a-range-given-a-current-selection/10692557#10692557），這可能有助於那。 – jmstoker

感謝您的建議..我嘗試不同的方法，我發現，但沒有...我在VBA不太好.. :-( –

我很接近..但應用程序定義或對象定義的錯誤正在查殺我...... :-( –

你需要達到的目標，我認爲這是非常容易複製/剪切在J列中的數據（從J2到Jxxx）然後粘貼到列F的數據底部，然後在列F上執行數據排序。無需VBA代碼！

來源

2013-10-03 01:27:28 PatricK

是的，但是，在col J中有1996個不同的郵政編碼，而col F中有628790個號碼 –

@生活藝術所以需要將代碼將Col J中的這些1996年郵政編碼移動到Col F底部並調用As J排序排序嗎？你需要在排序之前填寫其他欄目Col G， – PatricK

比較列的和選擇行

回答

相關問題