為什麼這篇vba複製資料夾鄉民發文收入到精華區：因為在vba複製資料夾這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者eelyang (WORN OUT)站內Visual_Basic標題[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
推 qsss:用While..Loop去跑判斷是否為空白的Cell 再執行貼上的動作 09/06 13:34