如圖，EXCEL B（可以選擇a或b列資料）的怎樣快速獲得EXCEL A中相應的資料？請大神指教
uj5u.com熱心網友回復：
更正下標題是“VBA”uj5u.com熱心網友回復：
在Excel中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。uj5u.com熱心網友回復：
Thanks,這樣的復制多次宏，有沒有更快的辦法呢uj5u.com熱心網友回復：
Sub copy()
Dim rng As Range, ws As Worksheet
Set ws = Workbooks("EXCELA.xlsx").Worksheets(1)
For Each rng In Range(ws.[a1], ws.[a1].End(4))
If rng = [a1] Then rng.Offset(0, 1).copy [a65536].End(3).Offset(1, 0)
If rng = [b1] Then rng.Offset(0, 1).copy [b65536].End(3).Offset(1, 0)
If rng = [c1] Then rng.Offset(0, 1).copy [c65536].End(3).Offset(1, 0)
Next
End Sub
自己新建EXCELA和EXCELB兩個表 資料要放Sheet1，自制以上代碼到EXCELB表上運行即可
uj5u.com熱心網友回復：
沒有附件，沒有看明白是什么意思是提取不重復值？？？
用字典，或者高級篩選
uj5u.com熱心網友回復：
vlookup函式是不是就解決你的問題了。uj5u.com熱心網友回復：
在Excel中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼uj5u.com熱心網友回復：
別要要的VBA代碼 不是要其他方式得出的結果uj5u.com熱心網友回復：
你可以在ExcelB的某個sheet頁里面，按上圖加一個button，然后點擊這個button進去寫下以下代碼：
for i=1 to SheetA.Range("a65533").End(xlUp).Row
sheetB.cells(i,1)=sheetA.cells(i,1)
sheetB.cells(i,2)=sheetA.cells(i,2)
sheetB.cells(i,3)=sheetA.cells(i,3)
next i
sheetA的1,2,3列對應你的q,a,b列；同理于sheetB.
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/48490.html
標籤：VBA
下一篇：求大神幫忙寫一段VBA