我有一個資料夾裡面都是連續性編號的檔案（如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