假如有12個月工資表，現在要求制作某人的12個月的工資彙總表，這就涉及到多表查找數據的問題。 此類問題，無外乎遍曆每個工作表進行查詢。如果要查詢的數據是唯一的時候，可以直接屬于VLOOKUP或者MATCH公式進行查找。 以下案例從12張表中查找指定員工每個月的工資明細，本案例使用MATCH函數鏡像定位，然後轉置粘貼該員工的數據。需要注意的是，當沒有符合條件的記錄時，會出現錯誤，需要進行錯誤處理。 '' 根據員工姓名從多表中查詢員工工資明細'Sub querySalary() Dim sht As Worksheet, shtSalary As Worksheet Dim rng As Range Dim employee As String ' Set sht = Sheets("查詢表") sht.Range("rngResult").ClearContents ' 通過名稱指定結果輸出區域 employee = Range("rngEmployee").value ' 通過名稱指定要查詢員工的姓名 ' 遍曆12個月的工資表 For i = 1 To 12 Set shtSalary = Sheets(i & "月") On Error Resume Next n = WorksheetFunction.Match(employee, shtSalary.Columns("A"), 0) On Error GoTo 0 If Err.Number = 0 Then Set rng = shtSalary.Range("C" & n & ":L" & n) rng.Copy sht.Cells(10, i + 2).PasteSpecial xlPasteValues, , , True End If Next ' For i = 10 To 19 sht.Cells(i, 10) = WorksheetFunction.Sum(sht.Range("C" & i & ":N" & i)) Next ' sht.Range("rngResult").NumberFormatLocal = "#,##0.00" Application.CutCopyMode = False shrt.Range("rngEmployee").SelectEnd Sub