Question

VBA编程 运行时错误“1004”应用程序定义或对象定义错误，怎么解决，小白求助帮忙把代码写的更简单点吗。

Sub SheetCopy()
Sheets("确定表格").Range("d2:d4").Copy Sheets("打印表格").Range("d2")
Sheets("确定表格").Range("h2:h4").Copy Sheets("打印表格").Range("h2")
Sheets("确定表格").Range("m2:m4").Copy Sheets("打印表格").Range("n2")
Sheets("确定表格").Range("r2:r4").Copy Sheets("打印表格").Range("s2")
Sheets("确定表格").Range("g7:g23").Copy Sheets("打印表格").Range("g7")
Sheets("确定表格").Range("i7:i23").Copy Sheets("打印表格").Range("h7")
Sheets("确定表格").Range("k7:k23").Copy Sheets("打印表格").Range("i7")
Sheets("确定表格").Range("m7:m23").Copy Sheets("打印表格").Range("j7")
Sheets("确定表格").Range("r7:r23").Copy Sheets("打印表格").Range("k7")
Sheets("确定表格").Range("g24:g36").Copy Sheets("打印表格").Range("r7")
Sheets("确定表格").Range("i24:i36").Copy Sheets("打印表格").Range("s7")
Sheets("确定表格").Range("k24:k36").Copy Sheets("打印表格").Range("t7")
Sheets("确定表格").Range("m24:m36").Copy Sheets("打印表格").Range("u7")
Sheets("确定表格").Range("r24:r36").Copy Sheets("打印表格").Range("v7")
Sheets("确定表格").Range("g38:g41").Copy Sheets("打印表格").Range("r20")
Sheets("确定表格").Range("i38:i41").Copy Sheets("打印表格").Range("s20")
Sheets("确定表格").Range("k38:k41").Copy Sheets("打印表格").Range("t20")
Sheets("确定表格").Range("m38:m41").Copy Sheets("打印表格").Range("u20")
Sheets("确定表格").Range("r38:r41").Copy Sheets("打印表格").Range("v20")
End Sub

Answer 1

测试了 没什么问题  你可以注释掉代码 逐条代码来测试  看看哪一条代码有问题

追问

1、怎么注释掉代码？从第一条就已经出错了！把(d2到 s2）这四条代码删掉，就可以正常使用了。
2、能帮忙把代码简化一下吗，我不会写，这是在别的地方抄录的。
3、可以帮忙给写个从表一指定单元格复制数值到表二的指定单元格的代码好吗。