UC知道EXCEL VBA脚本错误
来源：百度知道 编辑：UC知道 时间：2024/06/13 22:50:25
Application.CutCopyMode = False
Range("B6:H26").Select
Selection.Copy
Worksheets("sheet4").Activate
Range("B6:H26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = True
程序想把一个区域的数据复制到另一个SHEET的相同区域，但是到Range("B6:H26").Select就报错，请给些建议。谢谢
Range("B6:H26").Select
Selection.Copy
Worksheets("sheet4").Activate
Range("B6:H26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = True
程序想把一个区域的数据复制到另一个SHEET的相同区域，但是到Range("B6:H26").Select就报错，请给些建议。谢谢
改成这样试试：
Application.CutCopyMode = False
Range("B6:H26").Select
Selection.Copy
Sheets("sheet4").Activate
Sheets("sheet4").Range("B6:H26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = True
或者：
Application.CutCopyMode = False
Range("B6:H26").Copy Sheets("sheet4").Range("B6:H26")
Application.CutCopyMode = True
语句测试过了，没有错误，成功拷贝到sheet4了，具体报错信息是什么。
先dim一个Range再将Range("B6:H26")赋给它试试！！