excel vba セルのn文字目がスペースだったらスペースを削除は、どのように書けばいいでしょうか?

Excel18閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

若しかしてこうでしょうか? アクティブセルの文字列からスペースを探索し削除する場合は以下で Sub sample() Dim i As Integer For i = 1 To Len(ActiveCell.Value) If Mid(ActiveCell.Value, i, 1) = " " Then MsgBox WorksheetFunction.Replace(ActiveCell.Value, i, 1, "") End If Next i End Sub

ThanksImg質問者からのお礼コメント

出来そうで出来なかったのですが、 補足の方で解決しました。 ありがとうございます。

お礼日時:7/7 15:34