向另一工作表追加数据，仅数据不带公式，在线求助

acetar

Sub 追加数据()
   Sheets("数据表1").Select
   Range("A4").Select
   Range(Selection, Selection.End(xlDown)).Select      
   Range(Selection, Selection.End(xlToRight)).Select   
   Selection.Copy
   Sheets("汇总").Select
   Range("A3").Select
   Selection.End(xlDown).Select                     '选择最后一行数据之后的空行中的第1个单元格
   ActiveCell.Offset(1, 0).Range("A1").Select      
   ActiveSheet.Paste
  End Sub

数据表1中的数据追加到"汇总表"中，"数据表1"包含计算公式，实现把"数据表1"追加至汇总表时将公式计算值写到汇总表中，不要把公式一起写过去。

ykcbf1100

复制仅数值

smiletwo

上附件+描述需求 可能更快些
个人建议：把要复制的区域赋值给数组，在要追加的位置用数组填入。