[已解决]求助“定位到指定单元格，并输入不规则求和公式进行运算”的VBA 代码

席可茵

chenye_guan 发表于 2016-6-30 15:00
Sub add()
For Each Rng In Range("a:a")
  If Rng = "产品" Then

能把K列的结果值显示为公式吗？如K8单元格显示为“=SUM(J8:J16)”

scl5801

席可茵 发表于 2016-6-30 15:15
能把K列的结果值显示为公式吗？如K8单元格显示为“=SUM(J8:J16)”

Sub zj()
Dim arr, i%, x
r = Sheet1.Range("a65536").End(3).Row
arr = Sheet1.Range("a3:k" & r)
For i = UBound(arr) To 1 Step -1
     If arr(i, 1) Like "*产品*" Then
        arr(i, 11) = "=sum(j" & i + 2 & ":j" & i + 2 + x & ")"
         x = 0
    Else
        x = x + 1
     End If
Next i
[a3].Resize(UBound(arr), 11) = arr
End Sub

席可茵

scl5801 发表于 2016-6-30 16:41
Sub zj()
Dim arr, i%, x
r = Sheet1.Range("a65536").End(3).Row

    谢谢！