错行对应求和..........

zhangjimfu

Sub SumproductAddress()
     Dim i As Integer
     Dim row As Integer
     Dim sum As String
     On Error Resume Next
     row = 2
     For i = 1 To 3 Step 2
          sum = sum & Cells(i + 2, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "*" & Cells(row, 3).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "+"
          row = row + 2
     Next i
           Cells(6, 3) = Left(sum, Len(sum) - 1)
End Sub

zhangjimfu

还是上一下附件吧！

secowu

原帖由 zhangjimfu 于 2010-8-31 16:26 发表
Sub SumproductAddress()
     Dim i As Integer
     Dim row As Integer
     Dim sum As String
     On Error Resume Next
     row = 2
     For i = 1 To 3 Step 2
          sum = sum & Cells(i + 2, ...

当行数很多时候，这个公式就很长了。能否用sumproduct?

secowu

原帖由 zhangjimfu 于 2010-8-31 16:28 发表
还是上一下附件吧！

公式版本得出的这个，如果在前面加=就出错了。

=A3*C2+A5*C4

dsmch

Function aa()
For Each cel In Range("a2:a" & Range("a65536").End(xlUp).Row)
If cel <> "" Then s = s & "+" & cel.Address(0, 0) & "*" & cel.Offset(-1, 2).Address(0, 0)
Next
aa = Mid(s, 2)
End Function

zhangjimfu

Cells(6, 3) = "'=" & Left(sum, Len(sum) - 1)

调整一下就可以了

zhangjimfu

行数很多自然公式就很长了，如果是求和就可以用sumproduct

secowu

原帖由 zhangjimfu 于 2010-8-31 16:41 发表
行数很多自然公式就很长了，如果是求和就可以用sumproduct

非常感谢，有新情况

其中A列作为不变因素，行与列变动情况。即，行不定，列不定。进行求和。

能否整两个方案，一个是sumproducr的公式版与直接得出结果版。
谢谢

[ 本帖最后由 secowu 于 2010-8-31 17:01 编辑 ]

zhangjimfu

secowu ，附件和图片不一致啊

secowu

原帖由 zhangjimfu 于 2010-8-31 16:59 发表
secowu ，附件和图片不一致啊

不好意思，忘记保存了。