新人求助帖，谢谢！

用户名用什么好

求助下各位老师，以下宏，是将sheet1、sheet2复制粘贴为数值，并将sheet3删除，为何到了红色的就提示错误“方法 'Select' 作用于对象 'Range' 时失败”，谢谢！

或有更便签的方法，转为数值，不改变原有的格式吗？（sheet1、sheet2中显示的数字是为链接）







    Sheets("Sheet1").Activate
    Cells.Select
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Sheets("Sheet2").Activate
    Cells.Select
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
    Sheets("Sheet3").Activate
    ActiveWindow.SelectedSheets.Delete

tiger1976

代码没问题呀

陆离Lowry

上个附件看看吧

ykcbf1100

这样改一下试试，我这里测试通过。

1. Sub test()
   
2.     With Sheets("Sheet1").UsedRange
   
3.         .Value = .Value
   
4.     End With
   
5.     With Sheets("Sheet2").UsedRange
   
6.         .Value = .Value
   
7.     End With
   
8.     Application.DisplayAlerts = False
   
9.        Sheets("Sheet3").Delete
   
10.     Application.DisplayAlerts = True
    
11. End Sub
    

复制代码

半百

代码是不是在某个不是Sheet2的工作里，而不是在模块里？

3190496160

Sub test()
Application.ScreenUpdating = False
Sheets("Sheet1").UsedRange = Sheets("Sheet1").UsedRange.Value
Sheets("Sheet2").UsedRange = Sheets("Sheet2").UsedRange.Value
Application.DisplayAlerts = False
Sheets("Sheet3").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3190496160