合并工作表复制来带公式数值vba代码

大枣工作室

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
   If Sheets(j).Name <> ActiveSheet.Name Then
       X = Range("A65536").End(xlUp).Row + 1
      ' Sheets(j).UsedRange.Copy Cells(X, 1)' 复制带标题
       Sheets(j).UsedRange.Offset(1, 0).Copy Cells(X, 1)   '复制不带标题
   End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub


粘贴过去带公式，怎么粘贴过去只粘贴数值？谢谢！

剑指E

把Sheets(j).UsedRange.Offset(1, 0).Copy Cells(X, 1) 换成
Sheets(J).UsedRange.Offset(1, 0).Copy
Cells(X, 1).PasteSpecial 12