エクセルで文頭に”’”を挿入したい。（VBA)

質問

エクセルのVBAで、D列の、文字が入っているところすべてに、先頭にアポストロフィーを挿入したいと思っています。
ネットで探っていて、下記のものをみつけたので、

Sub ApostroPut()
For Each currentcell In Selection
'Prevents inserting apostrophes in blank cells.
If currentcell.Formula <> "" Then
currentcell.Formula = "'" & currentcell.Formula
End If
Next
End Sub

これを真似て、下記のようにつくったら、型が一致しません、というエラーが出ました。
下記のものは、自分の中では一応、D1から100までのうち、値があるものに、アポストロフィーが付く、（ということを期待していました）。
Sub ApostroPut()

If Range("D1", "D100").Formula <> "" Then
Range("D1", "D100").Formula = "'" & Range("D1", "D100").Formula
End If

End Sub

初心者なので、くだらない間違いなのだろうと思いますが、どなたかわかる方、デバックをお手伝いいただけないでしょうか。何卒宜しくお願いいたします。

回答No.1

mu2011 · ベストアンサー

一例です。

Sub ApostroPut()
範囲 = "D1:D100"
For Each d In Range(範囲)
If d.Formula <> "" Then d.Formula = "'" & d.Formula
Next
End Sub

お礼

ありがとうございます！問題なくできました！
これからも勉強していきます。