[[20200510014614]]　『Offset関数の書き方について』（ひろ）　ページの最後に飛ぶ

『Offset関数の書き方について』（ひろ）

Sheet2のB3,B4,B5,B6,B7,B8と続く6つの数値を、
Sheet3のC3,G3,K3,C7,G7,K7へ転記したいのですが、
オフセット関数でどのように入力すればセルの指定を動かせるか
分かりません。。。

※数値の数は、増減する場合があるので、For Nextで
繰り返し処理をさせようと考えております。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 参考に
 Sub Test()
    Dim i As Long

    For i = 1 To 6
        Sheets("Sheet3").Range("C3").Offset(((i - 1) \ 3) * 4, ((i - 1) Mod 3) * 4).Value = _
            Sheets("Sheet2").Cells(i + 2, "B").Value
    Next i
 End Sub

（ピンク） 2020/05/10(日) 02:21

 Sub Test2()
    Dim i As Long, 行 As Long, 列 As Long

    For i = 1 To 6
        行 = ((i - 1) \ 3) * 4      '0⇒0⇒0⇒4⇒4⇒4 と変化
        列 = ((i - 1) Mod 3) * 4    '0⇒4⇒8⇒0⇒4⇒8 と変化
        Sheets("Sheet3").Range("C3").Offset(行, 列).Value = _
            Sheets("Sheet2").Cells(i + 2, "B").Value
    Next i
 End Sub

（ピンク） 2020/05/10(日) 05:57

ピンクさん

返信ありがとうございます。
分かりやすくご説明いただき助かりました。。。
（ひろ） 2020/05/10(日) 15:20

コメント返信：

[ 一覧(最新更新順) ]

[[20200510014614]] 『Offset関数の書き方について』（ひろ） ページの最後に飛ぶ

[[20200510014614]]　『Offset関数の書き方について』（ひろ）　ページの最後に飛ぶ