------------以下是宏代码-------------------

Sub Add_Kesituo()

    Application.ScreenUpdating = False

    For Each cel In Selection

        cel.Value = Chr(34) & cel.Value & Chr(34)

    Next cel

    Application.ScreenUpdating = True

End Sub