怎样用宏实现，批量将某列的文字前后加入符号？

o0star0o

点击下按钮

批量在P列有内容的单元格（没有内容的就不加）前面加入“【”符合，在后面加入“】”符号
编辑附件： 前后加字.zip (9.83 KB, 下载次数: 8)

2018-7-19 00:24 上传

点击文件名下载附件

不知道为什么

1. Sub test()
   
2.     Dim TopRow&, Arr
   
3.     With ActiveSheet
   
4.         TopRow = .Cells(.Rows.Count, "P").End(3).Row
   
5.         Arr = .Range("p1:p" & TopRow)
   
6.         For i = 1 To TopRow
   
7.             If Len(Arr(i, 1)) > 0 Then
   
8.                 Arr(i, 1) = "【" & Arr(i, 1) & "】"
   
9.             End If
   
10.         Next i
    
11.         .Range("p1:p" & TopRow) = Arr
    
12.     End With
    
13. End Sub
    

复制代码

lsc900707

Sub abc()
    For i = 3 To ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
        If Len(Cells(i, 16)) > 1 Then
            Cells(i, 16) = "【" & Cells(i, 16) & "】"
        End If
    Next
End Sub

liulang0808

楼主这个可以使用公式吧
如果vba，也是与公式雷同，再增加个for循环而已