VBA 「，」・空白・カタカナ等の複数条件のマクロ

いつも皆様ありがとうございます。
前回、VBAで質問させて頂いた内容なのですが条件が変わったところ
VBAがエラーとなりました。

理由は空白等複数の条件が変更となったためだと思われます。
やりたいことは
①同じシートのA列にデータを表示させたい
②「，」より前を表示させたい
③文字間に空白がある場合は削除
④空白セル、ひらがな、漢字、カタカナ（全角半角英数字）はそのまま表示


どなたかよろしくお願いします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2023/08/23 12:49

こんにちは

現状がどのような処理になっているのか不明ですけれど・・・

例えばこんな感じでしょうか？

Sub Sample()
Dim c, t, n

For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
t = Replace(Replace(c.Text, " ", ""), "　", "")
n = InStr(t, ",")
If n > 0 Then t = Left(t, n - 1)
c.Value = t
Next c
End Sub

この回答へのお礼

いつもお世話になっております。

完璧に改善されました。急ぎだったためたすかりました。

お礼日時：2023/08/23 14:32

No.2 回答者： fujillin 回答日時： 2023/08/23 13:37

No1です。

連投失礼。
すこしだけ、簡略化できたかも・・

Sub Sample2()
Dim c, t

For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
t = Replace(Replace(c.Text, " ", ""), "　", "")
If Len(t) Then c.Value = Split(t, ",")(0) Else c.Value = t
Next c
End Sub

この回答へのお礼

おはようございます。わざわざすみません。
いつもありがとうございます。
<m(__)m>

お礼日時：2023/08/24 10:13