文本收尾自动添加符号或者文本如何实现？

喝酒的毛毛虫

文本收尾自动添加符号或者文本如何实现？详细看附件。

首尾添加符号问题.rar (15.03 KB, 下载次数: 3)

2023-2-8 13:58 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&
   
    ar = Range("C1", Cells(Rows.Count, "C").End(3))
    For i = 1 To UBound(ar)
       ar(i, 1) = "【" & ar(i, 1) & "】"
    Next i
    [D1].Resize(UBound(ar)) = ar
    Beep
End Sub

gwjkkkkk

请参考附件。。。

盼盼198310

................