[已解决]如何批量加上字符"已收到'

bipl607

各位高手
如何用宏在D列的数据前面都加上"已收到"三个字呢,如将376258897变为
已收到376258897
谢谢!

最佳答案

月排行榜 / 总排行榜

zjdh

2011-8-20 10:26

1. Sub TEST()
   
2. For I = 1 To Range("A65536").End(3).Row
   
3. If Range("D" & I) <> "" Then Range("D" & I) = "已收到" & Range("D" & I)
   
4. Next
   
5. End Sub
   

复制代码

跳转到最佳答案楼层

zjdh

1. Sub TEST()
   
2. For I = 1 To Range("A65536").End(3).Row
   
3. If Range("D" & I) <> "" Then Range("D" & I) = "已收到" & Range("D" & I)
   
4. Next
   
5. End Sub
   

复制代码

ljzzlan

学习楼上代码！

那么的帅

回复 bipl607 的帖子

批量加上已收到(VBA).rar (8.21 KB, 下载次数: 18)

2011-8-20 10:30 上传

点击文件名下载附件

bipl607

谢谢楼上各位啊,谢谢!