『転記』(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
(もこな2) 2024/04/02(火) 22:59:58
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.