●Rangeの使い方 Range(“セル位置”)
・セル位置 例：A1 B2
●Cellsの使い方 Cells（縦番号,横番号）
・セル位置を位置番号にすると”A1”は、縦１横1 ＝Cells(1,1)
・セル位置”E3”の場合は、Cells(3,5) または、Cells(3,”E”)でも可能です。数値だけでは、なく列記号でも可能です。下記に、RangeとCellsの使用例を記入していますので、参考にして下さい
| 実行したい内容 | Range | Cells |
| セルA1に”Hello”を代入する | Range(“A1”) = “Hello” | Cells(1,1) = “Hello” |
| セルB2に”Hello”を代入する | Range(“B2”) = “Hello” | Cells(2,2) = “Hello” |
| セルA1をA2に代入する。 | Range（”A2″) = Range(“A1”) | Cells(2,1) = Cells(1,1) |
| Rangeの記述 | 参照範囲 | 記述内容 |
|---|---|---|
| Range("A1") | 「A1」セル | 単一セルの指定 |
| Range("A1:E5") | 「A1～E５」セル | セル範囲の指定 |
| Range("A1,B2,C3") | 「A1」「B2」「C3」のセル | 複数の単一セルの指定 |
| Range("A1:B5,C2:D6") | 「A1～B5」と「C２～D6」 | 複数のセル範囲指定 |
| Range("A:E") | 「A～E」列セル | 列の範囲指定 |
| Range("1:5") | 「１～５」行セル | 行の範囲指定 |
| Cellsの記述 | 参照範囲 | 記述内容 |
|---|---|---|
| Cells(1,"A") | 「A1」セル | 単一セルの指定（列を英字） |
| Cells(1,1) | 「A1」セル | 単一セルの指定（列を数字） |
| Range(Cells(1,"A"),Cells(5,"B")) | 「A1～B5」 | セルの範囲指定(列を英字) |
| Range(Cells(1,1),Cells(5,2)) | 「A1～B5」 | セルの範囲指定（列を数字） |
| Cells | 全セル | 全てのセルを指定 |
Sub Rangetest01()
Range("A1") = Range("C1")
'セルC1⇒A1へ値を書き込みます。①
Cells(2, "A") = Cells(2, "C")
'セルC2⇒A2へ値を書き込みます。②
'①は、Rangeの場合です、②は、Cellsの場合です。とちらも同じ処理行います。
End Sub
Sub Rangetest02()
Range("A4:A5").Value = Range("C4:C5").Value
'セルC4～C5⇒A4～A5へ値を書き込みます。①
Range(Cells(7, "A"), Cells(8, "A")).Value = Range(Cells(7, "C"), Cells(8, "C")).Value
'セルC7～C8⇒A7～A8へ値を書き込みます。②
'①は、Rangeの場合です、②は、Range＋Cellsの組み合わせ場合です。とちらも同じ処理行います。
'Cellsの場合は、複数セルを選択できないので、②の様にRangeを組み合わせます。
End Sub
Sub RangeTest03()
Dim I As Integer 'I 変数数値を定義
For I = 1 To 10 'C1～C10のデータをA1～A10へ順番に値を書き込みます。
Range("A" & I) = Range("C" & I) 'セルC ⇒ セルA は値を書き込みます。
Next I
End Sub
