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

エクセルマクロ・VBA基礎編フォローアップ ベーシック
とびとびに存在するデータを拾って加工する

受講生さんの投稿

(投稿ID: 2138)

（昨晩以下の書き込みしたつもりでしたが、時間切れで画面が更新されなかったみたいです。
なので再アップします。どこかに掲載済でしたらすみません。）
今回数式の話が出たところで動画をとめて、自分だったらどうするか考えて以下を書きました。
文系の発想ですみません。コメントいただけましたら幸いです。
これから数列の勉強をしに動画を見てきます。
Sub mondai006()
    Dim moto
    Dim syukei
    syukei = 1
    For moto = 1 To 28
    If Left(Range("A" & moto).Value, 1) = "第" Then
        Range("C" & syukei).Value = Range("A" & moto).Value & Range("A" & moto + 1).Value
        syukei = syukei + 1
    End If
Next
End Sub

by gooska
2016/03/25 00:04