Re: [算表] (關於剪貼)多個工作表複製貼上--VBA

看板Office作者 (可愛到犯規)時間13年前 (2012/09/03 14:51), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串3/4 (看更多)
請教w大大 因為我有類似的情況 不過我想在同一個檔裡有工作表 就是有1x個資料來源(格式相同,都有數百列) 併到單一sheet (先取名為data) 然後以data為主去做運算樞紐 請問可以怎麼改呢… vba對我是外星文呀 >"< 謝謝您 ※ 引述《windknife18 (windknife18)》之銘言: : 使用 VBA 的方法,請參閱以前的文章 : 假設資料都在前三列,以下程式是將所有資料集中到Sheet1 : 其他位置可以參考自行修改之 ... : Sub marco1() : Dim index As Integer, start As Integer : 'Sheet1 一開始的列 : start = 4 : For index = 2 To ThisWorkbook.Sheets.Count : With ThisWorkbook.Sheets(index) : '從第1列到第3列 : .Range(.Cells(1, 1), .Cells(3, .Columns.Count)).EntireRow.Copy _ : Destination:=ThisWorkbook.Sheets(1).Range("A" & start) : End With : start = start + 3 : Next index : End Sub : ※ 引述《wengho (wengho)》之銘言: : : 軟體:EXCEL : : 版本:2003 : : 我有一個檔案,有很多的SHEET, : : 每個SHEET的欄位是固定有3列(橫) : : 但需要把每個SHEET集中到一個SHEET裡面 : : 雖然一直剪貼就可以了 : : 可是資料確有500-600個SHEET : : 請問有沒有辦法可以一次剪貼累積下去呢? : : 感謝網友協助^^ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 203.187.88.253
文章代碼(AID): #1GH5DzID (Office)
文章代碼(AID): #1GH5DzID (Office)