给所选中的单元格加双引号

Sub add_double_quotation()

'

' add_double_quotation Macro

' Macro recorded 2010-5-7 by LGC

'

'

    Dim string1 As String

    string1 = ActiveCell.Value

    string1 = Chr(34) & string1

    string1 = string1 & Chr(34)

    ActiveCell.Value = string1

 

End Sub

Sub Macro1()

'

' Macro1 Macro

' Macro recorded 2010-5-7 by LGC

'

' Keyboard Shortcut: Ctrl+q

'

    Dim Rng     As Range

    For Each Rng In Application.Selection

        Rng.Select

        Application.Run "add_double_quotation"

    Next

 

End Sub