Excel vba.求助，重新编写代码实现图片中的功能，图片中的代码是宏录制的
展开全部
调用工作薄函数就可以了
Sub 计算()
Range("D1：D103") = "=SUMPRODUCT(($A$1:$A$433=G1)*($B$1:$B$433))"
End Sub
或
Sub aa()
Range("D1：D103") = ""
Dim I%, K%
For I = 1 To 433
For K = 1 To 103
If Cells(I, "a") = Cells(K, "g") Then
Cells(K, "d") = Cells(K, "d") + Cells(I, "B")
End If
Next
Next
End Sub
Sub 计算()
Range("D1：D103") = "=SUMPRODUCT(($A$1:$A$433=G1)*($B$1:$B$433))"
End Sub
或
Sub aa()
Range("D1：D103") = ""
Dim I%, K%
For I = 1 To 433
For K = 1 To 103
If Cells(I, "a") = Cells(K, "g") Then
Cells(K, "d") = Cells(K, "d") + Cells(I, "B")
End If
Next
Next
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
