セル範囲の列の指定には、RangeオブジェクトのEntireColumn プロパティを使用します。
以下の例では、アクティブシートのセル範囲B2~E5を含む列のValueプロパティに文字列をセットしています。
Sub SetColumns()
Range(Cells(2,2),Cells(5, 5)).EntireColumn.Value="Excel VBA"
End Sub
Sub SetColumns()
Range("B2:E5").EntireColumn.Value="Excel VBA"
End Sub
以下の例では、Sheet1のセル範囲B2~E5を含む列のValueプロパティに文字列をセットしています。
Sub SetColumns()
Worksheets("Sheet1").Activate
Worksheets("Sheet1").Range(Cells(2,2),Cells(5, 5)) _
.EntireColumn.Value="Excel VBA"
End Sub
Sub SetColumns()
Worksheets("Sheet1").Activate
Worksheets("Sheet1").Range("B2:E5") _
.EntireColumn.Value="Excel VBA"
End Sub