動画の最初部分、mid関数で1文字ずつ比較するヒントをいただいた時点で止めて
再度自力で取り組んでみました。
変数を沢山使いこなすことが、やはり難しかったです。
時間かかりましたが、[1]と[2]は解けました。
実はForNext関数で繰り返す回数に変数を使えないだろうか？という意識を
以前から持っていたので、今回それに取り組めてよかったです。
※以前、データの最終行をxldownで求めて、それを繰り返す数にあてはめる方法を
質問したことがありましたよね･･･(;´･ω･)
[3]については、まだうまくいきません。うーん(笑)

Sub rensyu03306()   '[1][2]の回答　mid関数で「、」を調べ、数をカウント
    Dim gyo
    Dim yakuwari        '調査する文字列
    Dim n               'yakuwariの文字数
    Dim kai             '「、」の回数をカウント
    Dim chosa           '文字列ごとに行う繰り返し回数
    
     For gyo = 2 To 7   '役割列の行数だけ繰り返す
        kai = 0         'カウント初期化
        yakuwari = Range("E" & gyo).Value
         n = Len(yakuwari)
         For chosa = 1 To n  '｢役割｣の文字数分だけ繰り返し調査
            If Mid(yakuwari, chosa, 1) = "、" Then   'yakuwariのn番目を「、」と比較
                kai = kai + 1       '「、」が見つかったらカウント
            End If
        Next
    Range("G" & gyo).Value = kai
    Next
End Sub

by gooska

2016/03/31 19:09