手机签到经验翻倍！
分享到：
| 发表于 2008-07-10 09:47:08 楼主 | |
|
详见附件
|
|
楼主热贴
个性签名：无
|
| 发表于 2008-07-10 11:22:51 1楼 | |
|
用宏实现： Sub 填充() Dim s$, i% For i = 2 To [b65536].End(xlUp).Row If Cells(i, 1) <> "" Then s = Cells(i, 1) Else Cells(i, 1) = s End If Next End Sub 该宏从A列第2 单元格开始向下复制，直到与B列最后一单元格同行止。 首先激活要处理的工作表，然后Alt + F8调出宏查看对话框，选择“填充”宏，最后点执行，就可以了！ 如附件！ |
|
针对ZOL星空(中国)您有任何使用问题和建议 您可以 联系星空(中国)管理员 、 查看帮助 或 给我提意见
