[VBA ] 重複複製貼上的問題

[eelyang (WORN OUT)]

我有一個資料夾裡面都是連續性編號的檔案（如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
推 qsss:用While..Loop去跑判斷是否為空白的Cell 再執行貼上的動作