推 wengho:大大你太恐怖了"猛到爆" XD 04/10 23:39
→ windknife18:希望你可以節省很多時間囉^^ 04/10 23:42
推 JieJuen:真的是很厲害 04/10 23:47
推 ljuber:好用的VBA 收集起來!! 04/11 21:14
使用 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: 61.229.85.205