[VBA ] 重複複製貼上的問題
我有一個資料夾裡面都是連續性編號的檔案（如a100.xls~~a217.xls)
我要把每個檔案的sheet1 (資料長度不固定）都copy-past到一個空白檔（merge.xls)
然後變成一個很大張的資料表
例如
檔案a100 檔案a101
種類 位置 種類 位置
T12 345 T21 728
T55 576 T22 034
變成
檔案 merge
種類 位置
T12 345
T55 576
T21 728
T22 034
可是現在卡在不知道用什麼指令去表示「下一個空白的儲存格」然後去past
麻煩各位幫我看看，謝謝！
Sub tomerge2()
'
' tomerge Macro
' birda 在 2006/9/1 錄製的巨集
'
'
For i = 108 To 109
ChDir "E:\work\兩生類資料整理"
Workbooks.Open Filename:="E:\work\兩生類資料整理\a" & i &
"_new.xls"
Windows("a" & i & "_new.xls").Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("merge.xls").Activate
Range(IsEmpty(ActiveCell.Offset(0, 1))).Select --->搞不定
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("a" & i & "_new.xls").Activate
ActiveWindow.Close
ActiveWorkbook.Save
Next
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.91.80.171
推
09/06 13:34, , 1F
09/06 13:34, 1F
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
