程序不按代码执行

狗尾草99

Sub 计算()
Dim intreturn As Integer
    intreturn = MsgBox("操作了吗", vbYesNo + vbQuestion, "提示")
If intreturn <> vbYes Then
Exit Sub
  
Else
    End If
For Each sh In Sheets
sh.Select
   For x = 1 To Range("a65536").End(xlUp).Row
   If Range("R" & x).MergeArea.Rows.Count > 1 Then
    s = Range("R" & x).MergeArea.Rows.Count
       Range("R" & x) = "=SUMPRODUCT(" & Range("G" & x).Resize(s).Address(0) & "*" & Range("H" & x).Resize(s).Address(0) & ")/SUM(" & Range("G" & x).Resize(s).Address(0) & ")"
        x = x + s - 1
    End If
       If Range("R" & x).MergeArea.Rows.Count = 1 And Range("R" & x).Interior.ColorIndex > 0 Then
       Range("R" & x) = Range("H" & x)
       End If
      
   Next
Next

End Sub


如果为合并单元格，则带入公式，否则不是合并单元格且有颜色是，R列数据等于H列
为什么后边的单元格不执行操作呢
谢谢

cui26896

SUMPRODUCT，SUM都不是VBA法定的函数，而是excel表列的函数，所以，在VBA代码中引用，要加上worksheetfunction.,即WorkSheetFunction.SUMPRODUCT,WorkSheetFunction.SUM。

cui26896

Range("R" & x) = "=SUMPRODUCT(" & Range("G" & x).Resize(s).Address(0) & "*" & Range("H" & x).Resize(s).Address(0) & ")/SUM(" & Range("G" & x).Resize(s).Address(0) & ")"这句的语法也不对，
应该直接用=，后面不能用双引号，总之你好好的去学习一下语法，这不是一句话两句话就能说得清的。

狗尾草99

cui26896 发表于 2019-7-30 11:38
Range("R" & x) = "=SUMPRODUCT(" & Range("G" & x).Resize(s).Address(0) & "*" & Range("H" & x).Resize ...

谢谢

狗尾草99

cui26896 发表于 2019-7-30 11:33
SUMPRODUCT，SUM都不是VBA法定的函数，而是excel表列的函数，所以，在VBA代码中引用，要加上worksheetfunct ...

谢谢

大灰狼1976

For x = 1 To Range("a65536").End(xlUp).Row
改成
For x = 1 To Range("d65536").End(xlUp).Row
就可以了，原因是A列数据只到259行为止，
所以x变量循环到259就结束了，下面的行都不会被处理。
其他代码除了乱一点，都没什么问题。