エクセルVBAで特定の文字を削除したい

質問

選択しているセルの中に入っている文字「■」を
削除したいのですがうまくいきません。
お願いいたします。

Sub ■削除()
Dim myRange As Range
Dim keyWord1 As String, keyWord2 As String
Dim bool As Boolean

Set myRange = ActiveCell
keyWord1 = "■"
keyWord2 = ""
bool = myRange.Replace(keyWord1, keyWord2, LookAt:=xlWhole)
End Sub

回答No.1

m5048172715 · ベストアンサー

Sub ■削除()
元 = ActiveCell.Value

For 検索 = 1 To Len(元)
If Mid(元, 検索, 1) <> "■" Then 新 = 新 & Mid(元, 検索, 1)
Next
ActiveCell.Value = 新
End Sub

お礼

早々にありがとうございます。
解決することができました。
これで作業がしやすくなります。

回答No.4

imogasi

Replace利用を、あきらめるつもりはないだろうが、
Basic言語以前からある方法で、下記でもやれるよ。
ーー
Ａ列にデータあるとする。B列に結果を置く。
aa▢■sdf 　　aa▢sdf
大きな池■ 　　大きな池
■遠い場所 　　遠い場所
1234■うぇｒｔ　　 1234うぇｒｔ
■遠い場所■　　 遠い場所
ーーー
標準モジュールに
Sub test01()
For i = 2 To Range("a1000").End(xlUp).Row
s = Cells(i, "A")
p1:
p = InStr(s, "■")
If p = 0 Then
Cells(i, "B") = s
GoTo p2
Else
s = Mid(s, 1, p - 1) & Mid(s, p + 1, Len(s) - p)
End If
GoTo p1
p2:
Next i
End Sub
1セルに２個以上出現分も、削除するようにした
テストデータ数が少ないので、いろいろのデータでテストする必要があるが。

お礼

ありがとうございました。
問題を解決することができました。
感謝いたします。

回答No.3

kkkkkm

bool = myRange.Replace(keyWord1, keyWord2, LookAt:=xlWhole)
を
bool = myRange.Replace(keyWord1, keyWord2, LookAt:=xlPart)
に変更して試してみてください。
なお、LookAt:=xlPartは省略可能です。

お礼

ありがとうございました。
問題を解決することができました。
感謝いたします。

回答No.2

m3_maki

Sub ■削除()
ActiveCell = Replace(ActiveCell, "■", "")
End Sub

お礼

ありがとうございました。
問題を解決することができました。
感謝いたします。