07/12/26 18:12:11
>>760
やはり漏れがあったか。だから、2つセットかどうか聞いたのだが…
下記のマクロなら希望に添う結果が得られると思う。
Sub insert_Quot_2()
Dim rg As Range
For Each rg In Selection
If rg.PrefixCharacter = "'" Then
rg.Value = "''" & rg.Value
End If
Next
End Sub
07/12/26 18:12:11
>>760
やはり漏れがあったか。だから、2つセットかどうか聞いたのだが…
下記のマクロなら希望に添う結果が得られると思う。
Sub insert_Quot_2()
Dim rg As Range
For Each rg In Selection
If rg.PrefixCharacter = "'" Then
rg.Value = "''" & rg.Value
End If
Next
End Sub