Excel VBA复制行并粘贴到新的工作表作为PasteValue

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

要在A列中找到第一个空白单元格，请从下往上看，向下偏移一行。

使用带有.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