投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
セル内の文字列から区切り文字を見つけ、その区切り文字の間にある文字列を切り出す

受講生さんの投稿

(投稿ID: 3043)

小川先生
お世話になります。初コメです。
全くマクロを書けない状態から、順番に動画で学びここまで理解することができました。
小川先生には感謝しかありません！ほんとにわかりやすいです！！

以下、自力で書いてみたマクロです。
先生と同じように動くのですが、問題点はありませんでしょうか？
Sub kugiri6()
Dim mae
Dim ato
Dim saki
Dim gyo
Dim moji

saki = 2

For gyo = 2 To 7
moji = Range("D" & gyo).Value
For mae = 1 To Len(moji)
ato = InStr(mae, moji, "、")
If ato <> 0 Then
Range("L" & saki).Value = Mid(moji, mae, ato - mae)
mae = ato
saki = saki + 1
Else
Range("L" & saki).Value = Mid(moji, mae)
saki = saki + 1
Exit For
End If
Next
Next
End Sub
2017/05/11 20:44