关于vba求和的问题，如图所示 - vba吧

level 10

大国司机☞😈☜ 楼主

图中求和的行数不能用变量嘛

2020年08月07日 08点08分 1

level 10

大国司机☞😈☜ 楼主

我想循环a列，当a列出现“空”时对c列两空行直接的单元格进行求和

2020年08月07日 08点08分 2

QQ47436528

搞那么多没用的代码干什么，j变量也是多余的吧，你直接用i变量就可以了，当a列有空行，直接把sum()代码赋值给c列对应的行就可以了

2020年08月08日 14点08分

大国司机☞😈☜

额我只学了皮毛我用楼下的方式解决的，不会赋值，什么是赋值

2020年08月13日 10点08分

level 10

大国司机☞😈☜ 楼主

回复 QQ47436528 :Sub dd()
Dim i, j As Integer
j = Range("a1").End(xlToRight).Column
For i = 2 To Range("a65536").End(xlUp).Row
If Range("a" & i) = "" Then
Cells(i, j + 1) = Application.Sum(Range(Cells(i, 3), Cells(i, j)))
End If
Nex
End Sub

2020年08月13日 10点08分 3

level 10

大国司机☞😈☜ 楼主

Sub cc()
'纵向求和'
Dim i, j, k As Integer
For i = 2 To Range("a65536").End(xlUp).Row
For k = 3 To Range("a1").End(xlToRight).Column
If Range("a" & i) = "" And Range("a" & i + 2) <> "" Then
j = Range("a" & i + 1).End(xlDown).Row
Cells(i, k) = Application.Sum(Range(Cells(i + 1, k), Cells(j, k)))
ElseIf Range("a" & i) = "" And Range("a" & i + 2) = "" Then
Cells(i, k) = Cells(i + 1, k)
End If
Next
Nex
End Sub

2020年08月13日 10点08分 4