テーブルの行数分繰り返し処理時に特定の行をスキップしたい

Question

前提・実現したいこと

本日からマクロの勉強をはじめました。
プログラム経験も浅く、説明が不足している箇所もあるかと存じますが、
よろしくお願いいたします。

データ数が決まっていないリストのデータすべてを指定したく、
以下コードを作成致しました。

コードは問題なく動作致します。

しかしながら、実データが５行目以降な為、今のままでは、１〜４行目の不要な箇所も
指定されてしまいます。

１〜４行目を除くデータの指定の仕方を教えて頂きたく存じます。

VBAにお詳しい方、ご教示のほどよろしくお願い致します。

該当のソースコード

Sub test()

    Dim i As Long
    ' 5行目から処理を行いたい為、iには4を代入
    i = 4
    Dim strArryHoge() As Variant
    
    
    For i = 1 To Worksheets("シート1").Cells(Rows.Count, "B").End(xlUp).Row
    
        ' 配列を再定義する
        ReDim Preserve strArryHoge(i - 1)
        
        '　配列に値を格納する
        strArryHoge(i - 1) = Worksheets("シート1").Cells(i, "B").Row
    
    Next

End Sub

ここにより詳細な情報を記載してください。

Answer 1

いろいろ方法はありそうですが。
strArryHoge(i - 1) = Worksheets("シート1").Cells(i+4, "B").Row

追記 こっちにも必要でしたね
For i = 1 To Worksheets("シート1").Cells(Rows.Count, "B").End(xlUp).Row - 4

Comments

[jam912sh]

torisan様、ご教示および追記ありがとうございます！上記のコードで試してみました。「インデックスが有効範囲にありません。」というエラーが表示されました。もう少しコードに不備がないか調査致します。貴重な情報頂きありがとうございます！

[jam912sh]

torisan様、失礼致しました。私のコピペミスでございました。torisan様からご教示いただきました箇所のみで、上手く動作致しました！大変助かりました！お忙しい中、ご教示頂き有難うございました！

Answer 2

データの配置や数がいまいちわかりませんが、、、

今の書き方を踏襲するなら、

    Dim i As Long
    ' 5行目から処理を行いたい
    i = 5
    Dim strArryHoge() As Variant


    For i = i To Worksheets("シート1").Cells(Rows.Count, "B").End(xlUp).Row

iの値をそのまま初期値として指定してやればいいと思います。

でも、エクセル的には、

Sub test()
    Dim v
    
    v = WorksheetFunction.Transpose(Range(Range("B5"), Cells(Rows.Count, "B").End(xlUp)).Cells)
End Sub

こんな感じでワークシート上の関数を使って、ループを書かなくていけます。

Answer 3

Dim i As Long
' 5行目から処理を行いたい為、iには4を代入
i = 4

としていますが

For i = 1 To 　とここでi が1に書き換わっています。

　ですので i = 4　は不要、 For i = 5 To …　として下さい。

Comments

[jam912sh]

atsunofu様、ご教示頂きありがとうございます。「For i = 5 To」を試しましたが、「:0」が返ってくるようで上手くデータの指定が行われませんでした。他になにかコードに不備がないか調査致します！

[jam912sh]

atsunofu様、皆様からご教示頂き、無事問題解決致しました！
貴重なお時間頂きありがとうございました。

Answer 4

iが行を表しているので、それで判定することになります

Sub test()
    Dim i As Long
    Dim strArryHoge() As Variant

    For i = 1 To Worksheets("シート1").Cells(Rows.Count, "B").End(xlUp).Row
        If i >= 5 Then
          ' 配列を再定義する
          ReDim Preserve strArryHoge(i - 1)

          '　配列に値を格納する
          strArryHoge(i - 1) = Worksheets("シート1").Cells(i, "B").Row
        End If
    Next
End Sub

複雑になってくるような場合にContinueが使えると良い場面がありますが、vbaではContinueには対応していないので、GoTo文で対応する事になります。
ループを終了し次のループに移る (VBAプログラミング)

Comments

[jam912sh]

sazi様、皆様からご教示頂き、無事問題解決致しました！GoTo文につきましても、勉強致します！
貴重なお時間頂きありがとうございました。

Answer 5

Sub test()

    Dim i As Long
    Dim strArryHoge() As Variant

    For i = 5 To Worksheets("シート1").Cells(Rows.Count, "B").End(xlUp).Row

        ' 配列を再定義する
        ReDim Preserve strArryHoge(i - 4)

        '　配列に値を格納する
        strArryHoge(i - 5) = Worksheets("シート1").Cells(i, "B").Row
    Next

End Sub

Comments

[jam912sh]

papinianus様、ご教示頂きありがとうございます。「For i = 5 To」私も質問前に試しましたが、「:0」が返ってくるようでございます。

[papinianus]

":0"が何かよくわかりませんが、redimしてますね。確かにforだけかえてもダメですね。
そのままじゃ合わないですね。
あと、やったことは書きましょう。

[jam912sh]

papinianus様、試した事の記載がなく大変失礼致しました。今後注意致します。papinianus様、皆様からご教示頂き、無事問題解決致しました！貴重なお時間頂きありがとうございました。