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

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

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

< スポンサーリンク >





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

1行ずつ操作

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

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

1行ずつVBA
マクロ前

マクロ後

 

1列ずつ操作

1行目の1列目(A列)から5列目(E列)まで順番に背景色を黄色にしてみます。

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

1列ずつVBA
マクロ前

マクロ後

 

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

 

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