VBA最後の行に値を貼り付け

Question

私がやっていることは、E17：BK17の値を最後の行にコピーすることです。今私がコピーしたものは、最後の行にE17の値が入りますが、残りの列のデータは最後の行にコピーされません。私が何をしているのか分からないので、どんな助けもありがたいです。

Sub Mercy_CopyPaste_Row() 
' 
' CopyPaste Macro 
' 
' 
Dim targetRng As Excel.Range 
Dim destRng As Excel.Range 
Set targetRng = Range("$E$17:$BK$17") 
Set destRng = Excel.Range("E" & Rows.Count).End(xlUp).Offset(1, 0) 

destRng.Value = targetRng.Value 

End Sub 

Answer 1

あなたSet targetRng = Range("$E$17:$BK$17")探しているものを行うことができますdestRng = Excel.Range("E" & Rows.Count).End(xlUp).Offset(1, 0)は、単一の列（実際には単一のセルです）であるのに対し、59列です。これが、単一のセル「E17」だけを貼り付ける理由です。ごdestRngためには

がtargetRngの同じサイズ（同じ数の列を）であることを、あなたはResizeにtargetRng.Columns.Countの範囲を必要としています。

は以下のコードを試してみてください。

Set destRng = Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, targetRng.Columns.Count) 
destRng.Value = targetRng.Value 

Answer 2

これは、あなたが

Sub Mercy_CopyPaste_Row() 

Dim lRow As Long 
Dim ACell As String 
Dim Col As String 
Dim targetRng As Excel.Range 
Set targetRng = Range("$E$17:$BK$17") 
lRow = WorksheetFunction.Max(Range("E65536").End(xlUp).Row) 
ACell = Range("E17").Address(RowAbsolute:=False, ColumnAbsolute:=False) 

Range("$E$17:$BK$17").AutoFill Range(ACell & ":" & "BK" & lRow) 

End Sub