|
Public Sub 循环()
'***声明
Dim 测试组设置 As Range: Set 测试组设置 = Range("测试组设置")
Dim 测试组循环 As Long
Dim 累计输出 As Range: Set 累计输出 = Range("累计输出")
Dim 累计录入 As Range
Dim 最大输出 As Range: Set 最大输出 = Range("最大输出")
Dim 最大录入 As Range
For 测试组循环 = 1 To 10
Set 累计录入 = Workbooks("测试A.xlsm").Worksheets("累计").Range(Cells(测试组循环 + 3, "b"), Cells(测试组循环 + 3, "ANH"))
Set 最大录入 = Workbooks("测试A.xlsm").Worksheets("最大").Range(Cells(测试组循环 + 3, "b"), Cells(测试组循环 + 3, "ANH"))
测试组设置 = 测试组循环
累计录入 = 累计输出.Value
最大录入 = 最大输出.Value
Next
End Sub
调试到红色代码,出现了运行时错误 ‘1004’ 是怎么回事(有附件图片)?
|
|