Question

EXCEL vba出现 运行时错误1004:应用程序定义或对象定义错误

Sub 余额()'Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim rr = Sheet4.Cells(Rows.Count, 4).End(xlUp).Row
With Application.WorksheetFunctionFor c = 2 To 6For d = 4 To ryu = yu + .SumProduct((Range("b4:b" & d) = Range("b" & d)) * (Range("d4:d" & d) = Sheet1.Range("j" & c)) * Range("e4:e" & d)) 运行到这里时出现错误NextNextEnd WithEnd Sub

Answer 1

请确认变量r的定义是否正确。
如果Sheet4的第4列末尾行数小于4，则导致循环变量d的无效。

追问

r的值为18，定义没错

追答

yu是已定义的名称？还是其他过程？
另外，个人认为写入公式的话，利用混合引用+AutoFill填充更好一点，比循环更效率。
方便的话可将模拟数据发到用户名的企鹅油箱，实际判断一下。

追问

邮件已发送，请帮忙看看，谢谢