[[20170321225123]]　『Sheet1のA1からでなく、D3から始まる場合について』（ウルトラ　７）　ページの最後に飛ぶ

『Sheet1のA1からでなく、D3から始まる場合について』（ウルトラ　７）

下記のマクロでsheet1のA1からでなく、sheet１のD3から始まる場合はどこを修正したらよいでしょうか、教え下さい。このマクロでできたのですが、sheet1のデーターの始まりが変更されたものを使用することになってしまい、データーの内容は同じなのですが、sheet１のD3からはじまるものになって、修正箇所がわかりません、よろしくお願いします。

Sub test1()

    Dim i As Long
    Dim k As Integer
    Dim m As Long

    For k = 8 To 44 Step 3
        For i = 14 To 62 Step 2
            m = m + 1
            Sheets("Sheet2").Cells(i, k).Value = Right(Sheets("Sheet1").Cells(m, "A").Value, 5)
        Next i
    Next k

 End Sub

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

 こんばんわ。

 m が行番号を表しています。
 なのでD3からなら、ループの上、For k = 8 To 44 Step 3　よりも上に　m = 2　と記述すれば、
 ループ中の m = m + 1 で自動的に3から始まって1行ずつ加算されます。

 D列は以下の右辺の Cells(m, "A") がA列を表しているので、AをDに変えるだけです。
            Sheets("Sheet2").Cells(i, k).Value = Right(Sheets("Sheet1").Cells(m, "A").Value, 5)

 後いきなりコードを出されても？になるので、前スレへのリンクを張って下さい。
 特に今回はHNも変わってるので私の回答かどうか分かるまで時間がかかりました。
[[20170318075651]]　『マクロにてINDEX関数を使って条件の通りに作成したい』（ウルトラ）

（sy） 2017/03/22(水) 00:00

できました、ありがとうございます。遅い時間にやって頂いたようで、ご面倒をおかけしました、申し訳ありません。
（ウルトラ　　７） 2017/03/22(水) 09:08

コメント返信：

[ 一覧(最新更新順) ]

[[20170321225123]] 『Sheet1のA1からでなく、D3から始まる場合について』（ウルトラ ７） ページの最後に飛ぶ

[[20170321225123]]　『Sheet1のA1からでなく、D3から始まる場合について』（ウルトラ　７）　ページの最後に飛ぶ