VBA运行速度

天真无鞋

VBA分列能否提高运行速度，代码舒服有问题，谢谢！



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
Dim x As Integer
Dim Rng As Range
Set Rng = Range("K5:K" & Range("K1048576").End(xlUp).Row)
For Each cell In Rng
str = Replace(Replace(Replace(cell.Text, "---", "-"), "--", "-"), " ", "")
    C = 13
r = cell.Row
    For Each e In Split(str, "*")
        Cells(r, C) = e
        C = C + 1
   
If C > 19 Then Exit For   '〔假设你控制到五列止〕

  Next
Next

End Sub

micch

For Each cell In Rng  换数组而非cell可以快很多

qline302

以下拙见:
1.使用selectionchange最好还是加上指定列号运行判断。
2. 采用数组范围替代 for each range.
3.如果行数不是经常变化，可把总行数判定放到模块级变量,判读一次即可。
4.set语句最后，加上 set rng= nothing语句.
5.split()函数可单独先赋给一个变量.

天真无鞋

micch 发表于 2024-1-25 20:50
For Each cell In Rng  换数组而非cell可以快很多

新手，能否帮忙把更好的语句写全，谢谢！

天真无鞋

qline302 发表于 2024-1-25 21:01
以下拙见:
1.使用selectionchange最好还是加上指定列号运行判断。
2. 采用数组范围替代 for each range.
...

新手，能否帮忙把更好的语句写全，谢谢

ykcbf1100

天真无鞋 发表于 2024-1-25 21:07
新手，能否帮忙把更好的语句写全，谢谢

关键在于你要上传附件，光看你的代码又不知道你的数据结构如何。

天真无鞋

ykcbf1100 发表于 2024-1-25 21:14
关键在于你要上传附件，光看你的代码又不知道你的数据结构如何。

大哥已上传，帮忙改一下，非常感谢。

ykcbf1100

参与一下。。。

1. Sub 分列()  '//2024.1.25
   
2.     Application.ScreenUpdating = False
   
3.     Sheets("数据库").Activate
   
4.     r = Cells(Rows.Count, "k").End(3).Row
   
5.     arr = Range("K5:s" & r)
   
6.     On Error Resume Next
   
7.     For i = 1 To UBound(arr)
   
8.         st = arr(i, 1)
   
9.         b = Split(st, "*")
   
10.         For x = 0 To 6
    
11.             arr(i, x + 3) = b(x)
    
12.         Next
    
13.     Next
    
14.     Range("K5:s" & r) = arr
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "OK！"
    
17. End Sub
    
18. 
    

复制代码

ykcbf1100

天真无鞋 发表于 2024-1-25 21:18
大哥已上传，帮忙改一下，非常感谢。

一、分列不要用工作表事件，用事件的话，每次打开工作簿都要分列一次；

二、分列不要直接在单元格上操作，改用数组会快很多。
附件供参考。。。