【正文】 不變。注意單詞之間要用空格隔開。工作表命名,以工作表所在文件名為類If 1 Then().Name = strFileName amp。復(fù)制新打開工作簿的每一個工作表到當(dāng)前工作表(After:=())最后一個后面For i = 1 To iiWorkbooks(dirname).Sheets(i).Copy After:=()NextWorkbooks(dirname).Close FalseEnd Ifdirname = DirLoopEnd Sub在同一文件夾下有多個工作簿，其中有一個用于匯總的工作簿，將除該匯總工作簿外的其它工作簿中的每一張工作表的數(shù)據(jù)匯總到該匯總工作簿的一張工作表中。返回一個String，用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁盤卷標(biāo)相匹配。ii = ’ Sheets 屬性Workbooks(nm).Activate’ Activate方法。 I).Copy Sheets(Sheet1).Range(A65536).End(xlUp).Offset(1, 0)End IfNext shEnd Sub如何將多個工作簿中的工作表一次性合S 問題：如何將多個工作簿中的工作表一次性合S答案: 關(guān)于如何將多個工作簿（xls文件）中的工作表(worksheet）復(fù)制到同一個工作簿中的解決。依此處理文件夾中的文件If Right(Trim(), 3) = xls Then 39。Sheets(目錄).Range(E1)DimxShAsWorksheetDimIAsLong,JAsLongSheets(按鋼筋種類匯總).SelectSetxSh=Sheets(按鋼筋種類匯總)J=(D,(D:d))(A2:Qamp。主表從第二列開始 For SheetIndex = 1 To 100 39?！皡R總”，在第一列A1輸入工號A2至A71錄入70個表的名字。 [a65536].End(xlUp).Row + 1).Clear For x = 1 To With Sheets(都要復(fù)制到這張表上) If Sheets(x).Name 都要復(fù)制到這張表上 Then Sheets(x).Range(A8, H25).Copy .Range(A amp。如圖1所示。 步驟一：鼠標(biāo)移到列標(biāo)（即A B C……）變成向下黑箭頭時，選中要復(fù)制的表格的所有列，選中后按Ctrl+C(復(fù)制），將其粘貼到指定的位置 Sub 合并表() before:=Worksheets(1)sheetscount = For i = 2 To sheetscountSheets(i).a = (a + 1, 1).SelectNext iEnd SubExcel多工作表選擇復(fù)制 30分 標(biāo)簽：回答：3 你現(xiàn)在點結(jié)束宏的錄制。所有的格式都不會變的。如何在EXCEL工作表種快速復(fù)制多個和原來表格一摸一樣的表格啊，請多多指教？008年農(nóng)資綜合直補(bǔ)農(nóng)戶檔案登記表 （按07年農(nóng)網(wǎng)綜合直補(bǔ)面積填報） 辦事處（蓋章）村委會（蓋章）村小組 戶主姓名 身份證號碼 水稻年播種面積（畝） 早造 晚造 補(bǔ)貼標(biāo)準(zhǔn)（元/畝） 補(bǔ)貼金額（元） 銀行帳號 備注 　　“將選定工作表移至工作簿”下拉箭頭，從工作簿下拉列表中選定目標(biāo)工作簿文件名稱()，如果要將所移動或復(fù)制的工作表放至目標(biāo)工作簿某個工作表之前，在“下列選定工作表之前”列表框中單擊該工作表的名稱，要將工作表放至目標(biāo)工作簿中所有工作表的最后，單擊“移到最后”。 copy all data from src to destDim arrsrc(), arrdest()arrsrc = srcarrdest = destReDim arrdest(1 To , 1 To )CopyMemory ByVal VarPtr(arrdest(1, 1)), ByVal VarPtr(arrsrc(1, 1)), 16 * * dest = arrdestErase arrsrcErase arrdestEnd SubSub xxx() 39。 SheetIndex).Cells(SubRowIndex, 1) 39。 可以根據(jù)注釋修改相應(yīng)數(shù)字 Dim RowIndex As Integer Dim RefCol As Integer Dim SubRowIndex As Integer Dim SubColIndex As Integer RowIndex = 1 39。關(guān)閉file,folder,filesystemobject對象Set fd = NothingSet fs = NothingEnd SubSub main()Dim sPath As StringsPath = InputBox(請輸入目錄！如C:, 合并目錄下xls文件的sheet1) 39。建立filesystemobjectIf Not (sPath) ThenMsgBox 目錄不存在！, vbCriticalExit SubEnd IfSet fd = (sPath) 39。關(guān)閉一個打開的 TextStream 文件。 dirname’ Open 方法。dirname = Dir(lj amp。打開文件ii = 39。 strFileName, ReadOnly:=True)strFileName = Left(Left(strFileName, Len(strFileName) 4), 29) 39。將光標(biāo)定位到代碼中間任意位置，按F5運行它。 RowSize Variant 類型，可選。工作表上已使用區(qū)域的列數(shù)。Boolean 類型，可讀寫 = FalseFor i = 2 To ’。 i) amp。 ] order by 班別,座號 sql = sqlTemp amp。 Serow).Copy Destination:=Sheets(Total).Range(a amp。END,range對象的END屬性,也返回一個對象,、xlToRight、xlUp 或 xlDown。所要移動的方向。(注：當(dāng)C列有空白單元格時用：myEndRow=sheets(sheet1).range(C65536).End(xlUp).row)[a65536].End(xlUp) 取得A列最后一個數(shù)據(jù)的位置本示例選定包含單元格 B4 的區(qū)域中 B 列頂端的單元格。屬性。 With/end with語句結(jié)構(gòu)中以.開頭的語句相當(dāng)于引用了with語句中指定的對象。新建一個工作表放在最后。End WithNextEnd Sub’ 注：在VISUAL BASIC中要加入注釋，直接在注釋文字前加上’符號即可，在’符號之