Excel VBA セルを１行ずつ、１列ずつ操作する

Excelを操作していると、１行ずつや１列ずつ操作したい時があります。

そんな時のサンプルです。

< スポンサーリンク >

VBAで１行ずつ、１列ずつ操作する

１行ずつ操作

A列の１行目から１０行目まで順番に背景色を黄色にしてみます。

Sub test()
    ‘ 変数の宣言
    ‘ ループ用
    Dim i As Long
    ‘ 開始行
    Dim start_row As Long
    ‘ 終了行
    Dim end_row As Long

    ‘ 開始行を代入
    start_row = 1
    ‘ 終了行を代入
    end_row = 10

    With ActiveSheet
        ‘ 開始行から終了行まで繰り返す
        For i = start_row To end_row
            .Cells(i, 1).Interior.Color = RGB(255, 255, 0)
        Next i
    End With
End Sub

↓

１列ずつ操作

１行目の１列目（Ａ列）から５列目（Ｅ列）まで順番に背景色を黄色にしてみます。

Sub test1()
    ‘ 変数の宣言
    ‘ ループ用
    Dim i As Long
    ‘ 開始列
    Dim start_col As Long
    ‘ 終了列
    Dim end_col As Long

    ‘ 開始列を代入
    start_col = 1
    ‘ 終了列を代入
    end_col = 5

    With ActiveSheet
        ‘ 開始行から終了行まで繰り返す
        For i = start_col To end_col
            .Cells(1, i).Interior.Color = RGB(255, 255, 0)
        Next i
    End With
End Sub

↓

最終行、最終列を調べて、終了行、終了列に指定したい場合はコチラ↓を参考にしてください。

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします