[已解决]请帮助解决问题

liuym

            我的问题在附件里面。谢谢！



               请看附件： 20161211.rar (7.79 KB, 下载次数: 7)

2016-12-11 20:40 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2016-12-13 15:18

1. Sub test()
   
2.     Dim r&, x As Range   
   
3.     With ActiveSheet
   
4.         Set x = .UsedRange.Find("合计")
   
5.         If Not x Is Nothing Then x.EntireRow.Clear
   
6.         r = .[b65536].End(3).Row
   
7.         .[a2].Resize(r - 1, 8).Sort key1:=.[b2]
   
8.         .[h2].Resize(r - 1).Formula = "=rc[-3]-rc[-1]"
   
9.         r = r + 3
   
10.         .Cells(r, 2) = "合计"
    
11.         .Range("E" & r).Resize(, 4).Formula = "=sum(r2c:r[-1]c)"
    
12.         .Range("F" & r) = ""
    
13.     End With   
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

苏子龙

你的问题，用sum函数就能统计，请自己百度

liuym

苏子龙 发表于 2016-12-12 11:27
你的问题，用sum函数就能统计，请自己百度

老师你好！我要用VBA来做。谢谢！

望帝春心

感觉有点烦琐啊～～～～

望帝春心

1. Sub test()
   
2.     Dim i&
   
3.     Application.ScreenUpdating = False
   
4.     arr = Sheets("一月份").[a2].CurrentRegion
   
5.     For i = 2 To UBound(arr)
   
6.         arr(i, 8) = arr(i, 5) - arr(i, 7)
   
7.     Next
   
8.     Sheets("一月份").[h2].Resize(UBound(arr), 1) = Application.Index(arr, , 8)
   
9.     Sheets("一月份").[a2].CurrentRegion.Sort _
   
10.         key1:=Sheets("一月份").[b2], Header:=xlGuess
    
11.     Sheets("一月份").[b2].Offset(i + 2, 0) = "总计"
    
12.     Sheets("一月份").[e2].Offset(i + 2, 0) = Application.Sum(Sheets("一月份").[e2].Resize(i, 1))
    
13.     Sheets("一月份").[g2].Offset(i + 2, 0) = Application.Sum(Sheets("一月份").[g2].Resize(i, 1))
    
14.     Sheets("一月份").[h2].Offset(i + 2, 0) = Application.Sum(Sheets("一月份").[h2].Resize(i, 1))
    
15.     Application.ScreenUpdating = True
    
16. End Sub

复制代码

望帝春心

1. 参考附件

复制代码

liuym

望帝春心 发表于 2016-12-12 18:19

老师您好！B列也就是“客户”是文字的，不是英文字母，请您帮忙再改一下，谢谢！

望帝春心

liuym 发表于 2016-12-12 19:08
老师您好！B列也就是“客户”是文字的，不是英文字母，请您帮忙再改一下，谢谢！

是不是文字有什么关系吗？代码不是针对字母写的

grf1973

1. Sub test()
   
2.     Dim r&, x As Range   
   
3.     With ActiveSheet
   
4.         Set x = .UsedRange.Find("合计")
   
5.         If Not x Is Nothing Then x.EntireRow.Clear
   
6.         r = .[b65536].End(3).Row
   
7.         .[a2].Resize(r - 1, 8).Sort key1:=.[b2]
   
8.         .[h2].Resize(r - 1).Formula = "=rc[-3]-rc[-1]"
   
9.         r = r + 3
   
10.         .Cells(r, 2) = "合计"
    
11.         .Range("E" & r).Resize(, 4).Formula = "=sum(r2c:r[-1]c)"
    
12.         .Range("F" & r) = ""
    
13.     End With   
    
14. End Sub
    

复制代码

liuym

望帝春心 发表于 2016-12-12 19:15
是不是文字有什么关系吗？代码不是针对字母写的

老师您好！谢谢您的帮助！