vba问题

One123..

Sub c4()

Dim x As Integer, m1 As Integer, m2 As Integer

Dim k As Integer

m1 = 2

For x = 2 To 1000

If Cells(x, 1) = "" Then Exit Sub

If Cells(x, 3) <> Cells(x + 1, 3) Then

m2 = x

Rows(x + 1).Insert

Cells(x + 1, "c") = Cells(x, "c") & " 小计"

Cells(x + 1, "h") = "=sum(h" & m1 & ":h" & m2 & ")" 这里为什么要这样写，谁能帮我解答一下

我有点蒙.....

Cells(x + 1, "h").Resize(1, 4).FillRight

Cells(x + 1, "i") = ""

x = x + 1

m1 = m2 + 2

End If

Next x

End Sub

One123..

那里如果要用worksheetfunction.sum应该怎么写呢

砂海

那个地方 是 在表格中 输入的是公式 , 不是运算好的数值

One123..

恩恩 里面的双引号 为什么 那样用没看懂