回覆列表
-
1 # 今生共相伴520
-
2 # 使用者9092089660756
在工作表標籤上擊右鍵,檢視程式碼。;在VBE視窗中,點“插入”,模組。將以下程式碼貼上到模組程式碼窗格中,ALT+F8執行該宏,就行了。;附件中有樣本。;Sub 資料提取()For i = 2 To Worksheets.CountSheets(1).Cells(Sheets(1).[a65536].End(3).Row + 1, 1) = Sheets(i).[D3]Sheets(1).Cells(Sheets(1).[b65536].End(3).Row + 1, 2) = Sheets(i).[e6]NextEnd Sub
1、如果sheet名稱具備一定規律,例如常見的sheet1,sheet2,sheet3…等可採用如下公式,向下拖拽即可。=INDIRECT("sheet"&ROW(A1)&"!A1")也可透過類似單元格區域排列方式進行相關運算,例如如下公式對sheet1到sheet4的單元格A1求和。=sum("Sheet1:Sheet4"!A1)2、VBA方法如果毫無規律,則可使用VBA進行操作,如下程式碼指代排列在第一個sheet A1單元格的數值。Worksheets(1).cells(1,1)如下程式碼將各sheet A1單元格內容複製到當前sheet B列。Sub Data_()Dim i As SingleFor i = 1 To Worksheets.CountCells(i, 2) = Worksheets(i).Cells(1, 1)NextEnd Sub