Re: [算表] (關於剪貼)多個工作表複製貼上--VBA
使用 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
推
04/10 23:39, , 1F
04/10 23:39, 1F
→
04/10 23:42, , 2F
04/10 23:42, 2F
推
04/10 23:47, , 3F
04/10 23:47, 3F
推
04/11 21:14, , 4F
04/11 21:14, 4F
討論串 (同標題文章)
Office 近期熱門文章
PTT數位生活區 即時熱門文章
