第1个回答 2017-04-03
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
For Each c In Target.Cells
With c
If .Column = 1 Then Target.Value = "(" & .Value & ")"
End With
Next
Application.EnableEvents = True
End Sub
比如在A列,在需要加 括号的单元格里,双击下即可