如何用VBA计算?

On_fire

Chip_Kenny 发表于 2018-2-13 11:55
try this:

3Q, 有标示更好, 谢谢老师帮忙…

On_fire

On_fire 发表于 2018-2-13 12:13
3Q, 有标示更好, 谢谢老师帮忙…

各位老师,

再请教一个输出数据结果的问题,

现在的F列复制到另一页的G列

现在的A列复制到另一页的A列

现在的C列复制到另一页的B列

现在的B列复制到另一页的E列

(如截图) 请问代码要怎么修改?

yanghaipingabc

Chip_Kenny 发表于 2018-2-13 11:55
try this:

学习了，range.sort的用法学习了

Chip_Kenny

On_fire 发表于 2018-2-13 17:13
各位老师,
再请教一个输出数据结果的问题,  现在的F列复制到另一页的G列现在的A列复制到另一页的A列现 ...

1. Sub zz()
   
2. Dim a, rng As Range, r&
   
3. Application.ScreenUpdating = 0
   
4. Columns("a:b").Insert
   
5. Set rng = Range("a1:i" & Cells(Rows.Count, 3).End(3).Row)
   
6. a = rng.Value
   
7. For i = 1 To UBound(a)
   
8.     a(i, 1) = i
   
9.     If a(i, 4) <= 5 Then
   
10.         a(i, 2) = i
    
11.         a(i, 9) = a(i, 3) & "&" & a(i, 7) - 1 & "&" & a(i, 4)
    
12.     Else
    
13.         a(i, 9) = a(i, 3) & "&" & a(i, 7) & "&" & a(i, 4)
    
14.     End If
    
15. Next
    
16. [a1].Resize(i - 1, 9) = a
    
17. rng.Sort key1:=rng(2), order1:=1, Header:=0
    
18. r = Cells(Rows.Count, 2).End(3).Row
    
19. Union(Range("g1:g" & r), Range("i1:i" & r)).Interior.Color = 65535
    
20. Range("d1:d" & r).Interior.Color = 60000
    
21. rng.Sort key1:=rng(1), order1:=1, Header:=0
    
22. Columns("a:b").Delete
    
23. Application.ScreenUpdating = 1
    
24. End Sub

复制代码

On_fire

Chip_Kenny 发表于 2018-2-13 22:54

再次谢谢老师…祝新春快乐!