修改代码

taller

ddz79101 发表于 2024-4-14 10:31
谢谢老师！列合计好像只进行了一半

我这里代码测试没有问题， 不知道你如何使用的代码

ddz79101

taller 发表于 2024-4-14 11:04
我这里代码测试没有问题， 不知道你如何使用的代码

老师！附件是我根据你图片上的代码录入的，方便看看。谢谢

taller

你输入的代码有问题，数字1变成小写字母L了

1. Sub 求和()
   
2.     Dim i As Long
   
3.     Dim j As Long
   
4.     i = Cells(Rows.Count, "A").End(xlUp).Row
   
5.     If Cells(i, 1) <> "合计" Then
   
6.         i = i + 1
   
7.         Cells(i, 1) = "合计"
   
8.     End If
   
9.     Cells(i, "C") = i - 3
   
10.     With Cells(i, 4).Resize(1, 10)
    
11.         .FormulaR1C1 = "=SUM(R[-" & i - 3 & "]C:R[-1]C)"
    
12.         .Value = .Value
    
13.     End With
    
14.     Intersect(Range("F:G,K:K"), Rows(i)).ClearContents
    
15.     Cells(i + 1, "D") = "平均"
    
16.     Cells(i + 1, "E") = Application.Average(Range("e3:e" & i))
    
17.     Cells(i + 1, "E").NumberFormat = Cells(3, "E").NumberFormat
    
18. End Sub
    

复制代码

yanglinzi

参与一下。。

ddz79101

yanglinzi 发表于 2024-4-14 14:05
参与一下。。

谢谢老师！代码成功

ddz79101

taller 发表于 2024-4-14 11:49
你输入的代码有问题，数字1变成小写字母L了

谢谢老师！代码成功