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

我想从sheet“汇总”行A44（带有dynamic数据的公式行固定行）复制到sheet18（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

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

使用.Value2的直接值转移来传递'数据将转换为绝对数字' 。 这将放弃区域货币和date惯例以及赞成原始基础价值的公式。

 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