vbaコピー行とペースト値として新しいシートに貼り付けます

Question

シート「要約」行A44（数式付きの固定データ行）からシート18（行A3）にデータをコピーしたい場合、A1とA2はヘッダーです。私は以下のVBAコードを持っており、そうすることができます。データを絶対数に変換するように、データをコピーして値（Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=Falseなど）として貼り付けたいと思います。コードを編集する方法は誰ですか？

Sub COPY_SUMMARY2COPYDATA() 

    Set des = Sheet18.Range("a1") 

    With Worksheets("SUMMARY") 
     .Rows(Range("A44").Row).Copy 
     des.Range("A3").Insert Shift:=xlUp 
    End With 

    Application.CutCopyMode = False 

End Sub 

Answer 1

これを試してください：

Sub COPY_SUMMARY2COPYDATA()  

    Dim LastRow As Long 

    LastRow = Sheet18.Cells(Rows.Count,1).End(XlUp).Row + 1 

    Sheets("SUMMARY").Rows("44").Copy   
    Sheet18.Rows(LastRow).PasteSpecial xlPasteValues 

    Application.CutCopyMode = False 

End Sub 

・ホープ、このヘルプ

Answer 2

を列に下から見て最初の空白セルを検索し、1行下にオフセットするには。

.Value2で直接値転送を使用して、を「絶対数に変換する」を渡します。これにより、地域の通貨と日付の表記規則と、元の原価を優先する式が破棄されます。

with Worksheets("SUMMARY") 
    with intersect(.usedrange, .rows(44).cells) 
     Sheet18.cells(.rows.count, "A").end(xlup).offset(1, 0).resize(.rows.count, .columns.count) = .value2 
    end with 
end with