07/12/25 20:58:41
>>755
セルを編集すると再び先頭の｢'｣が消えてしまい根本解決
にならないようなのでVBA案。
データ範囲選択後に、以下のマクロを実行。
(万一に備え、事前にファイルをコピーしておくこと)
Sub insert_Quot()
Dim rg As Range
For Each rg In Selection
If Len(rg) - Len(Replace(rg.Value, "'", "")) = 1 Then
rg.Value = "''" & rg.Value
End If
Next
End Sub