作者eelyang (WORN OUT)
站内Visual_Basic
标题[VBA ] 重复复制贴上的问题
时间Sat Sep 2 12:12:17 2006
我有一个资料夹里面都是连续性编号的档案(如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
1F:推 qsss:用While..Loop去跑判断是否为空白的Cell 再执行贴上的动作 09/06 13:34