【正文】 。代碼中運(yùn)用了filesystemobject對象和excel的range對象的copy方法以及worksheet和workbook對象的add方法。Sub Mergesheet(ByVal sPath As String)Dim fs, fd, fl As ObjectDim xlbook As WorkbookDim xlsheet As WorksheetDim i_t As Integeri_t = 1Set fs = CreateObject() 39?；蛉∥募AFor Each fl In 39。只處理xls文件Set xlbook = (sPath \ ) 39。默認(rèn)的worksheet數(shù)量是3,如果超過就自動(dòng)的增加Set xlsheet = (1).ElseSet xlsheet = (1).Worksheets(i_t)End If(1). (1, 1) 39。關(guān)閉已經(jīng)打開的xls文件End IfNextSet fl = Nothing 39。顯示輸入框獲取磁盤目錄If sPath = Then Exit SubMergesheet (sPath)End Sub 主題：[求助]多個(gè)工作簿中的工作表數(shù)據(jù)匯總到另一個(gè)工作簿中 回復(fù)SubBB():=D:\數(shù)據(jù)匯總\amp。J).CopyWindows().ActivateSheets(匯總目錄).SelectRange(A65536).End(xlUp).Offset(1,0).PasteSpecialPaste:=xlPastevalues=False B=Sheets(目錄).Range(E1).valueWindows(B).ActivateEndSub如何將多張excel工作表批量復(fù)制到一個(gè)表中 一個(gè)表中有若干個(gè)SHEET，表頭都是一樣的，我需要把這若干個(gè)SHEET合并到一個(gè)SHEET里面，單純的復(fù)制粘貼太麻煩了，表格太多。比較簡單，我正好以前回答過。復(fù)制下面代碼到一個(gè)宏里運(yùn)行就可以了。主表從第二行開始 RefCol = 1 39。100個(gè)sheet 循環(huán) SubRowIndex = 1 Do 39。子表從第一列開始,共10列 Worksheets(sheetmain).Cells(RowIndex, SubColIndex + RefCol) = Worksheets(Sheet amp。實(shí)際操作賦值語句 Next SubColIndex SubRowIndex = SubRowIndex + 1 RowIndex = RowIndex + 1 Loop While Worksheets(Sheet amp。子表第一列為空時(shí)跳出 Next SheetIndex 一個(gè)工作薄中有70個(gè)工作表,且所有工作表是完全相同的,問題是如何把后面所有工作表中相同位置處的數(shù)字引用到表1中同一列中??即在表1一個(gè)單元格中出現(xiàn)這個(gè)數(shù)據(jù),然后下拉就能出現(xiàn)所有工作表中的那個(gè)特定數(shù)據(jù)? 問題補(bǔ)充：我的是工資表,因?yàn)楹枚鄸|西比較復(fù)雜,所以每個(gè)人都單獨(dú)列了一個(gè)工作表,但格式都是一樣的,現(xiàn)在我想提取出每個(gè)工作表中相同單元格的數(shù)量,用公式只能提出一張表的數(shù)據(jù),下拉就會(huì)變,怎么辦???最佳答案假設(shè)你要引用的是另外70個(gè)不同表中D4這個(gè)單元格。：“=INDIRECT(CONCATENATE(A2,!D4))”，公式的意思是引用“匯總”表A2單元格相同的表中D4單元格的內(nèi)容。以上方法我自己摸索出來的，不保證最高效，但還算好用。利用Copymemory 復(fù)制數(shù)組,實(shí)現(xiàn)excel sheet中數(shù)據(jù)的任意復(fù)制,粘貼區(qū)域小于復(fù)制區(qū)域,數(shù)據(jù)將被截取,否則將用空格填充Private Declare Sub CopyMemory Lib kernel32 Alias RtlMoveMemory (pDst As Any, pSrc As Any, ByVal ByteLen As Long)Sub copyrange(ByVal src As Range, ByVal dest As Range) 39。將a1:c100 區(qū)域數(shù)據(jù)復(fù)制到d3:h40copyrange Range(a1:c100), Range(d3:h40)End Sub100多張工作表的有關(guān)內(nèi)容如何批量復(fù)制在一張表上Sub tt() = FalseDim xRows(2: amp。 .[a65536].End(xlUp).Row + 1)’ 都要復(fù)制到這張表上是工作表名, A8, H25是復(fù)制區(qū)域。 I).Copy Sheets(Sheet1).Range(A65536).End(xlUp).Offset(1, 0)End IfNext shEnd Sub快速移動(dòng)、復(fù)制Excel工作表技巧　　在Excel 2000中，有時(shí)需要將一個(gè)或一組工作表從一個(gè)工作簿(源工作簿)中移動(dòng)或者復(fù)制到另一個(gè)工作簿(目標(biāo)工作簿)中，這時(shí)我們可以采用如下的方法實(shí)現(xiàn)快速移動(dòng)或者復(fù)制工作表的操作?！　。瑔螕羰髽?biāo)右鍵，從彈出的快捷菜單中選擇“移動(dòng)或復(fù)制工作表”命令，打開“移動(dòng)或復(fù)制工作表”對話框。如果用戶只是復(fù)制選定的工作表到目標(biāo)工作簿時(shí)，還需要將“建立副本”復(fù)選框選中?！　　按_定”按鈕即可將選定的工作表快速移動(dòng)或者復(fù)制到目標(biāo)工作簿中的指定位置?！　?，然后拖動(dòng)工作表標(biāo)簽從源工作簿到目標(biāo)工作簿中指定工作表標(biāo)簽處，松開鼠標(biāo)，即可將選定的工作表快速移動(dòng)到目標(biāo)工作簿中?！　∪绻谕蟿?dòng)工作表標(biāo)簽從源工作簿到目標(biāo)工作簿中指定工作表標(biāo)簽處同時(shí)按下Ctrl鍵，那么就可以將選定的工作表快速復(fù)制到目標(biāo)工作簿中。 方法如下：要分兩次復(fù)制、粘貼 步驟二：鼠標(biāo)移到行標(biāo)（即1 2 3……）選中要復(fù)制的表格的所在行，選中后按Ctrl+C(復(fù)制），將其粘貼到步驟一所粘貼的位置（相當(dāng)于覆蓋） 這個(gè)很簡單的，點(diǎn)數(shù)字列最上邊的空白格，這樣就選中了整個(gè)表格，復(fù)制，再先第二張表格粘貼，就完了。 EXCEL如何快速復(fù)制同個(gè)工作簿中不同工作表到一個(gè)工作表中 用這個(gè)vba就可以了。 瀏覽：499 每個(gè)工作表所選擇的數(shù)據(jù)位置不相同，數(shù)據(jù)也不相同。 將你的操作錄制為宏： 方法是，在excel中點(diǎn)工具“宏”“錄制新宏”在出現(xiàn)的對話框中輸入名字，點(diǎn)“鍵盤”按鈕，并將其快捷鍵設(shè)置為１或者其他的，確定． 出現(xiàn)“錄制宏”，這時(shí)候，你的鼠標(biāo)變成帶磁帶樣子，現(xiàn)在在第13表中先選定你要填充的單元格，然后輸入等號，再分別回到112表選擇要在13表中填充的數(shù)據(jù)的單元格，回車確定。 以后你使用，就可以直接應(yīng)用宏了，即選中單元格，按快捷鍵１或其他，就可以了． 在13表中先選定你要填充的單元格，然后按等號健，再回到112表選擇要在13表中填充的數(shù)據(jù)的單元格，按回車就行了， 可以按ctrl鍵多選，多選了之后再復(fù)制，再粘貼到13工作表中