準備2個表，一個數據表，一個花名冊
2個表
基本方法：
開發模式--visual basic--插入--模塊
代碼如下：
Sub 引用()
Dim i%, r% '定義變量
Dim arr1, arr2 '定義數組
arr1 = Sheets("數據庫").[a1].CurrentRegion '表1數據賦值給數組arr1
arr2 = Sheets("花名冊").[a1].CurrentRegion '表2數據賦值給數組arr2
r = 1
For r = 1 To UBound(arr2) '可以看成表2的行數
For i = 1 To UBound(arr1) '可以看成表1的行數
If arr2(r, 1) = arr1(i, 1) Then '可以看成如果表1和表2各自的第1列數據有一樣的
arr2(r, 2) = arr1(i, 2) '那麼把表1對應的第2列數據賦值給表2的第2列數據
arr2(r, 3) = arr1(i, 4) '那麼把表1對應的第2列數據賦值給表2的第2列數據
arr2(r, 4) = arr1(i, 3) '那麼把表1對應的第2列數據賦值給表2的第2列數據
arr2(r, 5) = arr1(i, 5) '那麼把表1對應的第2列數據賦值給表2的第2列數據
arr2(r, 6) = arr1(i, 6) '那麼把表1對應的第2列數據賦值給表2的第2列數據
arr2(r, 7) = arr1(i, 7) '那麼把表1對應的第2列數據賦值給表2的第2列數據
arr2(r, 8) = arr1(i, 8) '那麼把表1對應的第2列數據賦值給表2的第2列數據
arr2(r, 9) = arr1(i, 9) '那麼把表1對應的第2列數據賦值給表2的第2列數據
arr2(r, 10) = arr1(i, 10) '那麼把表1對應的第2列數據賦值給表2的第2列數據
Exit For '結束循環遍歷
End If
Next
Next
Sheets("花名冊").[a1].Resize(UBound(arr2), 2) = arr2 '把更新後的數組arr2複製到表2
Sheets("花名冊").[a1].Resize(UBound(arr2), 4) = arr2 '把更新後的數組arr2複製到表2
Sheets("花名冊").[a1].Resize(UBound(arr2), 3) = arr2 '把更新後的數組arr2複製到表2
Sheets("花名冊").[a1].Resize(UBound(arr2), 5) = arr2 '把更新後的數組arr2複製到表2
Sheets("花名冊").[a1].Resize(UBound(arr2), 6) = arr2 '把更新後的數組arr2複製到表2
Sheets("花名冊").[a1].Resize(UBound(arr2), 7) = arr2 '把更新後的數組arr2複製到表2
Sheets("花名冊").[a1].Resize(UBound(arr2), 8) = arr2 '把更新後的數組arr2複製到表2
Sheets("花名冊").[a1].Resize(UBound(arr2), 9) = arr2 '把更新後的數組arr2複製到表2
Sheets("花名冊").[a1].Resize(UBound(arr2), 10) = arr2 '把更新後的數組arr2複製到表2
End Sub
注意裡面列的關係，不要弄混，就可以了
保存後，退出
開發模式---插入--圖標--右擊--指定紅---引用--確定
閱讀更多 淡墨留餘香 的文章
