取C列非空值求和不能精准取值范围，（开始行F8开始，结束所有非空值）

qinhuan66

为什么此条代为什么此条代码取C列非空值求和不能精准取值范围，（开始行F8开始，结束所有非空值）码取C列非空值求和不能精准取值范围，（开始行F8开始，结 束所有非空值）

求助.rar (21.83 KB, 下载次数: 6)

2019-6-24 10:10 上传

点击文件名下载附件

microyip

1. [c65536].End(3).Offset(1, 3).FormulaR1C1 = "=SUM(R[-1" & m & "]C:R8C)"
   
2. [c65536].End(3).Offset(1, 4).FormulaR1C1 = "=SUM(R[-1" & m & "]C:R8C)"
   
3. [c65536].End(3).Offset(1, 5).FormulaR1C1 = "=SUM(R[-1" & m & "]C:R8C)"
   
4. [c65536].End(3).Offset(1, 6).FormulaR1C1 = "=SUM(R[-1" & m & "]C:R8C)"
   
5. [c65536].End(3).Offset(1, 7).FormulaR1C1 = "=SUM(R[-1" & m & "]C:R8C)"
   
6. [c65536].End(3).Offset(1, 8).FormulaR1C1 = "=SUM(R[-1" & m & "]C:R8C)"

复制代码

sylinmc

没明白意思哈

sylinmc

1. Sub 生成()
   
2. Dim k As Integer
   
3. Dim i As Integer
   
4. Dim sum As Integer
   
5. k = Cells(Rows.Count, 1).End(xlUp).Row
   
6. For i = 8 To k
   
7.     If Cells(i, 3) <> "" Then
   
8.         sum = sum + Cells(i, 11)
   
9.     End If
   
10. Next
    
11. Cells(k - 1, 11) = sum
    
12. Cells(k, 1) = "本次发放金额大写：人民币" & Application.Text(sum, "[DBNum2]") & "(" & sum & ")"
    
13. End Sub
    

复制代码

lsc900707

解答第一个问题：

1. Sub 求和()
   
2.     arr = [a1].CurrentRegion
   
3.     arr = [a1].Resize(UBound(arr) + 1, UBound(arr, 2))
   
4.     For j = 4 To UBound(arr, 2) - 1
   
5.         For i = 8 To UBound(arr) - 1
   
6.             arr(UBound(arr), j) = arr(UBound(arr), j) + arr(i, j)
   
7.         Next
   
8.     Next
   
9.     arr(UBound(arr), 1) = "合计"
   
10.     [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
11. End Sub

复制代码

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim rng As Range
   
5.   With Worksheets("2018")
   
6.     Set rng = .Columns("a:b").Find(what:="合计", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
   
7.     If Not rng Is Nothing Then
   
8.       r = rng.Row
   
9.       .Cells(r, 3).Resize(1, 9).FormulaR1C1 = "=SUM(R8C:R[-1]C)"
   
10.       .Cells(r + 1, 1) = "本次发放金额大写：人民币" & dx(.Cells(r, 11).Value) & "（" & Application.Text(.Cells(r, 11).Value, "￥#,##0.00_);(￥#,##0.00)") & "）"
    
11.     End If
    
12.   End With
    
13. End Sub
    

复制代码

chxw68

问题比较简单，但楼主没有说清，事先是否有“合计”这行数据，这个影响到判断最后一行的位置。

chxw68

如果表格中事先有“合计”行，那么可以通过查找“合计”所在位置确定合计数据行号，据此写入合计行公式和大写数据。否则，可以通过.cells(.rows.count,1).end(xlup).row来确定最后一行位置，在此行的下一行写入合计及公式，在下下一行写入大写数据。

qinhuan66

chxw68 发表于 2019-6-24 16:41
如果表格中事先有“合计”行，那么可以通过查找“合计”所在位置确定合计数据行号，据此写入合计行公式和大 ...

谢谢褚老师，老师一出马终于搞掂了

chxw68

qinhuan66 发表于 2019-6-24 16:51
谢谢褚老师，老师一出马终于搞掂了

呵呵，不是问题有多难，也不是我的水平有多高，主要是你把问题没有说清楚。