vba单元格前后统一加字符或符号,如图，在A列字符串前后加上一对括号，效果如B列

Question

Sub 单元格前后加字符()
Dim i As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
a = "("
b = ")"
c = Cells(i, 1).Value
Cells(i, 1).Formula = a + c + b
Next
End Sub

Answer 1

修改一下吧。

Sub å•å…ƒæ ¼å‰åŽåŠ å­—符()
    Dim i As Integer
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        a = "("
        b = ")"
        c = Cells(i, 1).Value
        Cells(i, 1).value = a & c & b
    Next
End Sub

Answer 2

Cells(i, 1).Formula　把这句换成Cells(i, 1).value就可以了

如果a,c,b都是字符串，+号等同于&号
保险点是先定义
dim a$,b$,c$

Answer 3

这样：   

 Dim i As Integer
    For i = 1 To Range("a10000").End(3).Row
        Cells(i, 2) = "(" & Cells(i, 1) & ")"
    Next