选中表格后，在所有第1列单元格的内容前加个符号

菜菜行者

在特殊要求时，选中某一个表格，然后能用VBA在第1列所有行的内容前加个符号
望得到高手的帮助，谢谢！

kqbt

下列代码供测试：

1. Sub test()
   
2.     Dim wCel As Cell
   
3.     For Each wCel In Selection.Cells
   
4.         wCel.Range.InsertBefore "@"
   
5.     Next
   
6. End Sub

复制代码

菜菜行者

kqbt 发表于 2016-8-1 13:40
下列代码供测试：

谢谢版主的帮助。
要求难度有所提高，希望再次得到版主的帮助。
表格第一例前加符号“@”，其他例前加符号“#”。
谢谢！

kqbt

菜菜行者 发表于 2016-8-2 07:13
谢谢版主的帮助。
要求难度有所提高，希望再次得到版主的帮助。
表格第一例前加符号“@”，其他例前加 ...

下列代码供测试：

1. Sub testt()
   
2.     Dim wCel As Cell
   
3.     For Each wCel In Selection.Cells
   
4.         If wCel.ColumnIndex = 1 Then
   
5.             wCel.Range.InsertBefore "@"
   
6.         Else
   
7.             wCel.Range.InsertBefore "#"
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

菜菜行者

kqbt 发表于 2016-8-2 10:48
下列代码供测试：

谢谢伟大的版主！
如果能让屏幕同替换的进度一同往下拉就好了。