[[20240402145700]]　『転記』（11）　ページの最後に飛ぶ

『転記』（11）

Sub 転記()

    Dim sourceValue1 As Variant
    Dim sourceValue2 As Variant
    Dim lastRow As Long

    ' Sheet1のD33とD34の値を取得
    sourceValue1 = Sheets("Sheet1").Range("D33").Value
    sourceValue2 = Sheets("Sheet1").Range("D34").Value

    ' Sheet2のC列の最終行を取得
    lastRow = Sheets("Sheet2").Cells(Rows.Count, 3).End(xlUp).Row

    ' 最終行の次のセルに値を転記
    Sheets("Sheet2").Cells(lastRow + 1 + 1, 3).Value = sourceValue1
    Sheets("Sheet2").Cells(lastRow + 1 + 2, 3).Value = sourceValue2
End Sub

Sheet2のD33.34の値をSheet1のC列最終行+1に転記することはできたのですが、
その転記した1行目を基準としてA列にSheet1のC20の値を転記したいのですが、
コードが分かりません。

例えば、C40が最終行ならC42にD33、C43にD34が転記される。
その場合A42にC20を転記したいのです…

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

 説明とコードが食い違ってないですか？ 
 コードは、シート2の方へ転記ですよね？

（半平太） 2024/04/02(火) 16:19:02

既に指摘があるところですが、コードのほうが正しいとすれば↓のようなアプローチもあると思います。

    Sub 別案()
        With Sheets("Sheet2").Cells(Rows.Count, 3).End(xlUp)
            .Offset(2, 0).Resize(2).Value = Sheets("Sheet1").Range("D33:D44").Value
            .Offset(2, -2).Value = Sheets("Sheet1").Range("C20").Value
        End With
    End Sub

（もこな２） 2024/04/02(火) 22:59:58

ほんとですね…すみません…
もこなさんありがとうございます。
ためしてみます！
（11） 2024/04/03(水) 11:47:50

コメント返信：

[ 一覧(最新更新順) ]

[[20240402145700]] 『転記』（11） ページの最後に飛ぶ

[[20240402145700]]　『転記』（11）　ページの最後に飛ぶ