|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
原帖由 草根糖 于 2009-9-14 09:40 发表 
为了了解for each 的用法,我特意在moon的基础上修改成用for each。
在修改的过程中,我不得不佩服moon的确很厉害!这种思路是我目前看到的最简捷的。从moon那也学到了不少,顺便谢谢moon!
583802
For Each sh In Worksheets
If sh.Name <> "外在本就读花名册" Then
bb = Sheets("外在本就读花名册").[b65536].End(xlUp).Row + 1
aa = Sheets(sh.Name).[b65536].End(xlUp).Row
Sheets(sh.Name).Range("b3:b" & aa).Copy 这句是复制B3到B至aa行的区域
Sheets("外在本就读花名册").Cells(bb, 2).PasteSpecial (xlPasteValues) 粘贴到这个工作表的第一个为空的第2列,Pastespecial(xlPasteValues) 是不是就是只粘贴的是内空,这样就不会把底色抹去? 我当时是抹去的又重新上色,真是笨呀. End If
Next |
|