【正文】 簿中 有時(shí)，需要將多個(gè)Excel工作簿中的工作表合并到一個(gè)工作簿中。好用！Sub UnionWorksheets() = False’關(guān)閉屏幕更新Dim lj As String Dim dirname As StringDim nm As StringDim i As Integer, ii As Integerlj = ’ Path 屬性。Workbooks(nm)屬使用工作簿名稱引用workbook，語法格式為：workbook（ 工作簿名稱）。只處理xls文件Set xlbook = (sPath \ ) 39。100個(gè)sheet 循環(huán) SubRowIndex = 1 Do 39。 .[a65536].End(xlUp).Row + 1)’ 都要復(fù)制到這張表上是工作表名, A8, H25是復(fù)制區(qū)域。 步驟二：鼠標(biāo)移到行標(biāo)（即1 2 3……）選中要復(fù)制的表格的所在行，選中后按Ctrl+C(復(fù)制），將其粘貼到步驟一所粘貼的位置（相當(dāng)于覆蓋） 將你的操作錄制為宏： 方法是，在excel中點(diǎn)工具“宏”“錄制新宏”在出現(xiàn)的對(duì)話框中輸入名字，點(diǎn)“鍵盤”按鈕，并將其快捷鍵設(shè)置為１或者其他的，確定． 出現(xiàn)“錄制宏”，這時(shí)候，你的鼠標(biāo)變成帶磁帶樣子，現(xiàn)在在第13表中先選定你要填充的單元格，然后輸入等號(hào)，再分別回到112表選擇要在13表中填充的數(shù)據(jù)的單元格，回車確定?！　∪绻谕蟿?dòng)工作表標(biāo)簽從源工作簿到目標(biāo)工作簿中指定工作表標(biāo)簽處同時(shí)按下Ctrl鍵，那么就可以將選定的工作表快速復(fù)制到目標(biāo)工作簿中。利用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。復(fù)制下面代碼到一個(gè)宏里運(yùn)行就可以了。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。 \ amp。 dirname 39。Range(a65536).End(xlUp).Offset(1).Resize(Rs, Ls) = arrEnd WithNext = True = TrueEnd Sub修改“開始行號(hào)”。語法： object 總是“應(yīng)用于”列表中某一項(xiàng)的名稱。 Range(p amp。 Erow).ClearContentsFor Each c In If Total Then Serow = c.[a65536].End(xlUp).Row Erow = Sheets(Total).[a65536].End(xlUp).Row + 1 (a4:l amp。Direction XlDirection 類型，必需。在程序中取得對(duì)象的屬性的代碼結(jié)構(gòu)：變量=對(duì)象 after:=Sheets() 39。此程序事先沒有對(duì)變量進(jìn)行聲明。過程是可以執(zhí)行的語句序列單元，所有可執(zhí)行的代碼必須包含在某個(gè)過程中，任何過程都不能嵌套在其它過程中，過程的名稱必須在模塊級(jí)別進(jìn)行定義。 With/end with語句結(jié)構(gòu)中以“.”開頭的語句相當(dāng)于引用了with語句中指定的對(duì)象。End WithNextEnd Sub’ 注：在VISUAL BASIC中要加入注釋，直接在注釋文字前加上’符號(hào)即可，在’符號(hào)之后的文字會(huì)被編譯器忽略，也可以使用REM來進(jìn)行注釋，但使用’符號(hào)會(huì)更快捷一些，還可以節(jié)省內(nèi)存及加快編譯的效率。 With/end with語句結(jié)構(gòu)中以.開頭的語句相當(dāng)于引用了with語句中指定的對(duì)象。(注：當(dāng)C列有空白單元格時(shí)用：myEndRow=sheets(sheet1).range(C65536).End(xlUp).row)[a65536].End(xlUp) 取得A列最后一個(gè)數(shù)據(jù)的位置本示例選定包含單元格 B4 的區(qū)域中 B 列頂端的單元格。END,range對(duì)象的END屬性,也返回一個(gè)對(duì)象,、xlToRight、xlUp 或 xlDown。 ] order by 班別,座號(hào) sql = sqlTemp amp。Boolean 類型，可讀寫 = FalseFor i = 2 To ’。 RowSize Variant 類型，可選。 strFileName, ReadOnly:=True)strFileName = Left(Left(strFileName, Len(strFileName) 4), 29) 39。dirname = Dir(lj amp。關(guān)閉一個(gè)打開的 TextStream 文件。關(guān)閉file,folder,filesystemobject對(duì)象Set fd = NothingSet fs = NothingEnd SubSub main()Dim sPath As StringsPath = InputBox(請(qǐng)輸入目錄！如C:, 合并目錄下xls文件的sheet1) 39。 SheetIndex).Cells(SubRowIndex, 1) 39?！　　皩⑦x定工作表移至工作簿”下拉箭頭，從工作簿下拉列表中選定目標(biāo)工作簿文件名稱()，如果要將所移動(dòng)或復(fù)制的工作表放至目標(biāo)工作簿某個(gè)工作表之前，在“下列選定工作表之前”列表框中單擊該工作表的名稱，要將工作表放至目標(biāo)工作簿中所有工作表的最后，單擊“移到最后”。所有的格式都不會(huì)變的。Sub 合并表() before:=Worksheets(1)sheetscount = For i = 2 To sheetscountSheets(i).a = (a + 1, 1).SelectNext iEnd SubExcel多工作表選擇復(fù)制 30分 標(biāo)簽：回答：3 如圖1所示。“匯總”，在第一列A1輸入工號(hào)A2至A71錄入70個(gè)表的名字。Sheets(目錄).Range(E1)DimxShAsWorksheetDimIAsLong,JAsLongSheets(按鋼筋種類匯總).SelectSetxSh=Sheets(按鋼筋種類匯總)J=(D,(D:d))(A2:Qamp。 I).Copy Sheets(Sheet1).Range(A65536).End(xlUp).Offset(1,