如何用VBA计算?

On_fire

如何用VBA计算?

A列是日期 (输出结果, 要改成yyyymmdd的格式)

B列是数值(当同行C列的值是5或更小, 自动减1, 输出结果)

C列是数值(判断B列要不要减1)

F列是模拟结果 (A & B & C列)

因数据N多(超10W行), 请老师, 大神帮忙…谢谢…

皓月惊虹

请来个附件。。。。。。

jsgj2023

超10万行,可以用数据库啦!

On_fire

皓月惊虹 发表于 2018-2-13 11:04
请来个附件。。。。。。

谢谢老师, 源文件太大, 上不了, 这是模拟的文件

On_fire

jsgj2023 发表于 2018-2-13 11:16
超10万行,可以用数据库啦!

谢谢老师, 可惜我不会用数据库

jsgj2023

在此基础稍加修改即可!

Chip_Kenny

try this:

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, 5) <= 5 Then
   
10.         a(i, 2) = i
    
11.         a(i, 8) = a(i, 3) & "&" & a(i, 4) - 1 & "&" & a(i, 5)
    
12.     Else
    
13.         a(i, 8) = a(i, 3) & "&" & a(i, 4) & "&" & a(i, 5)
    
14.     End If
    
15. Next
    
16. [a1].Resize(i - 1, 8) = a
    
17. rng.Sort key1:=rng(2), order1:=1, Header:=0
    
18. r = Cells(Rows.Count, 2).End(3).Row
    
19. Union(Range("d1:d" & r), Range("h1:h" & r)).Interior.Color = 65535
    
20. Range("e1:e" & 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

复制代码

fyure

我自己机器跑跑还挺快的

1. Sub aaa()
   
2. Dim arr, i&
   
3. arr = Range("a1:f" & Cells(Rows.Count, 1).End(3).Row)
   
4. For i = 1 To UBound(arr)
   
5. If arr(i, 3) <= 5 Then
   
6.   arr(i, 6) = Format(arr(i, 1), "yyyymmdd") & "&" & (arr(i, 2) - 1) & "&" & arr(i, 3)
   
7. Else
   
8.   arr(i, 6) = Format(arr(i, 1), "yyyymmdd") & "&" & arr(i, 2) & "&" & arr(i, 3)
   
9. End If
   
10. Next
    
11. [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
12. End Sub
    

复制代码

On_fire

jsgj2023 发表于 2018-2-13 11:48
在此基础稍加修改即可!

谢谢老师, 真的不懂sql

On_fire

fyure 发表于 2018-2-13 11:55
我自己机器跑跑还挺快的

谢谢老师帮忙…