“Lookup”在Excel中的漢語意思是“查找”，在Excel中與“Lookup”相關的函數有三個：VLOOKUP、HLOOKUP和LOOKUP。其中，VLOOKUP函數是按列進行查找。它的語法為：VLOOKUP(lookup_value, table_array, col_index_num, [range_lookup])。 lookup_value是要尋找的值，table_array是要進行尋找的表格區域，col_index_num是要傳回的值所在的列數，[range_lookup]是一個可選參數，用於指定是否進行近似匹配。
一、功能 在表格的首列尋找指定的數據，並傳回指定的資料所在行中的指定列處的資料。二、語法 標準格式： VLOOKUP(lookup_value,table_array,col_index_num , range_lookup)
VLOOKUP（需在第一列中查找的數據，需要在其中查找數據的數據表，需返回某列值的列號，邏輯值True或False） 1.Lookup_value為「需在數據表第一在列中尋找的資料”，可以是數值、文字字串或引用。 2.Table_array 為“需要在其中尋找資料的資料表”，可以使用儲存格區域或區域名稱等。 ⑴如果 range_lookup 為 TRUE或省略，則 table_array 的第一列中的數值必須以升序排列，否則，函數 VLOOKUP 不能傳回正確的數值。如果 range_lookup 為 FALSE,table_array 不必進行排序。 ⑵Table_array 的第一列中的數值可以是文字、數字或邏輯值。若為文字時，不區分文字的大小寫。 3.Col_index_num 為table_array 中待傳回的符合值的列序號。 Col_index_num 為 1 時，傳回 table_array 第一列的數值； Col_index_num 為 2 時，傳回 table_array 第二列中的數值，依此類推。如果Col_index_num 小於 1，函數 VLOOKUP 回傳錯誤值 #VALUE！ ； 如果Col_index_num 大於 table_array 的列數，函數 VLOOKUP 傳回錯誤值 #REF!。 4.Range_lookup 為一邏輯值，指明函數 VLOOKUP 回傳時是精確匹配還是近似匹配
四、應用範例A B C D 1 編號姓名薪資科室2 2005001 周杰倫2870 辦公室3 2005002 蕭亞軒2750 人事科4 2005006 鄭智化2680 供應科5 2005010 洪科 850 30750 70750 700750 70750 70750 70750 70750 70750 70750 70750 70750 70750 70750 70750 70750 70750 703750 。 5036 孟庭葦2200 工會A列已排序（第四個參數缺省或用TRUE） VLOOKUP(2005001,A1:D7,2,TRUE) 等於「周杰倫」 VLOOKUP(2005001,A1:D7,3,TRUE) 等於「2870」 VLOOKUP(2005001,A1: D7,4,TRUE) 等於「辦公室」 VLOOKUP(2005019,A1:D7,2,TRUE) 等於「孫楠」 VLOOKUP(2005036,A1:D7,3,TRUE) 等於「2200」 VLOOKUP(2005036,A1:TRUE) 等於「2200」 VLOOKUP(2005036,A1:TRUE) 4,TRUE) 等於「工會」 VLOOKUP(2005036,A1:D7,4) 等於「工會
1.把 多個工作表 合併到一張表，最快捷的方法是用巨集處理：
例如 將多個表合併到總計表：
總計 表只留一個標題
右鍵點 總結 工作表 標籤 ，查看程式碼， 把如下程式碼複製進去， F5 運行：
Sub 工作表合併（）
For Each st In Worksheets
##If st.Name ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub
2.就會把多個表合併 到 總表。
3. 如下例： 在Sheet 總計 中 執行 如上程式碼，就會將所有 月份 分錶 匯總 進來，方便後續處理，而 不需要一次次貼上處理。
展開全部
1、新建一個資料夾、將要合併的表格放到裡面、新建一個表格、用excel開啟、右鍵Sheet1
2、選擇檢視程式碼（PS:excel有著一項，WPS沒有）
3、將下列程式碼複製到文字方塊中：
Sub 合併目前目錄下所有工作簿的全部工作表（）
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & ＂\＂ & ＂*.xls＂)
AWbName = ActiveWorkbook.Name#Num = 0
Do While MyName
＂＂If MyName
AWbName ThenSet Wb = Workbooks.Open(MyPath & ＂\＂ & MyName)
Num = Num 1
With Workbooks(1).ActiveSheet
.Cells(.Range(＂B65536＂).End(xlUp).Row 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range(＂B65536＂).End(xlUp).Row 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range(＂B1＂).Select
Application.ScreenUpdating = True
MsgBox ＂共合併了＂ & Num & ＂個工作薄下的全部工作表。如下：＂ & Chr(13) & WbN, vbInformation， ＂提示＂
# ###End Sub### ###4、點擊運行、一段時間（取決於表格的大小和多少）後，合併完成了。 ###以上是合併電子表格數據的詳細內容。更多資訊請關注PHP中文網其他相關文章！
