vba合并单元格对应的数据计算

狗尾草99

求合并单元格对应A B 列所在行的数值乘积和除以A 列所在行的数值和。excel公式需要一个一个计算，求bva代码一次性计算多个工作表中合并单元格值

高

点按钮运行。

狗尾草99

高 发表于 2019-7-23 07:53
点按钮运行。

Sub 合并()
For Each sh In Sheets
sh.Select
   For x = 1 To Range("a65536").End(xlUp).Row
   If Range("d" & x).MergeArea.Rows.Count > 1 Then
    s = Range("d" & x).MergeArea.Rows.Count
       Range("d" & x) = "=SUMPRODUCT(" & Range("a" & x).Resize(s).Address(0) & "*" & Range("b" & x).Resize(s).Address(0) & ")/SUM(" & Range("a" & x).Resize(s, 2).Address(0) & ")"
        x = x + s - 1
    End If
   Next
Next
End Sub
谢谢您的代码，有一点不太明白，SUM(" & Range("a" & x).Resize(s, 2).Address(0) & ")"中Resize(s, 2)里的2是什么作用呢，我修改列号后成为SUM(" & Range("G" & x).Resize(s, 2).Address(0) & ")"得到的正确结果，把括号里2删除成为Resize(s)也是一样的正确结果，求解

爱疯

当x=5，s=4时
有2，即A5:A8。表示从单元格Range("a" & x) ，往下s行，往右2列
没2，即A5:B8

高

狗尾草99 发表于 2019-7-23 09:37
Sub 合并()
For Each sh In Sheets
sh.Select

给你举例。至于你说的有没有2都正确，要看你的表才能知道，你自己先理解一下。一、range("a2").resize(10，2):  resize表示单元格区域范围。在此例中，表示从a2开始，向下10行、向右2列的一个区域，即a2:b11.；

二、range("a2").resize(10):  其实是range("a2").resize(10，1)，这里只是把第二个参数省略了。在此例中，表示从a2开始，向下10行的一个区域，即a2:a11；

高

爱疯 发表于 2019-7-23 10:43
当x=5，s=4时
有2，即A5:A8。表示从单元格Range("a" & x) ，往下s行，往右2列
没2，即A5:B8

狗尾草99

爱疯 发表于 2019-7-23 10:43
当x=5，s=4时
有2，即A5:A8。表示从单元格Range("a" & x) ，往下s行，往右2列
没2，即A5:B8

谢谢

狗尾草99

高 发表于 2019-7-23 12:34
给你举例。至于你说的有没有2都正确，要看你的表才能知道，你自己先理解一下。一、range("a2").resize(10 ...

非常感谢您的讲解，这下明白啦