关于VBA代码性能优化的问题

huangfanzhen

代码如下，由于大量使用cells，性能很差，哪位大神给个提示。

如何用数组，批量读取sheet1，处理完成后写入sheet1
由于A列数据会非常多 大概几万行，实例表格仅仅选用了一部分

非常感谢

1. Sub 分词()
   
2. rA = Cells(2, 6)
   
3. rD = Cells(2, 7)
   
4. rN = Cells(2, 14)
   
5. For a = 2 To rA
   
6.         Cells(a, 3) = ""
   
7.         Cells(a, 2) = LCase(Cells(a, 1))
   
8.         For i = 2 To rD
   
9.             cG = LCase(Cells(i, 4))
   
10.                 q = IIf(InStr(cG, "*"), 1, 0)
    
11.                 If q = 0 Then
    
12.                      t = IIf(InStr(Cells(a, 2), cG), 1, 0)
    
13.                      If t > 0 Then
    
14.                          Cells(a, 3) = Cells(a, 3) & "[" & Cells(i, 5) & "]"
    
15.                      End If
    
16.                      Cells(a, 2) = Replace(Cells(a, 2), cG, "|")
    
17.                 Else
    
18.                     starP = InStr(cG, "*")
    
19.                     starL = Len(cG)
    
20.                     strL = Left(cG, starP - 1)
    
21.                     strR = Right(cG, starL - starP)
    
22.                     zzL = InStr(Cells(a, 2), strL)
    
23.                     zzR = InStrRev(Cells(a, 2), strR)
    
24.                     zz = zzL * zzR
    
25.                     If zz <> 0 Then
    
26.                         If zzL < zzR Then
    
27.                             Cells(a, 3) = Cells(a, 3) & "[" & Cells(i, 5) & "]"
    
28.                             Cells(a, 2) = Replace(Cells(a, 2), strL, "|")
    
29.                             Cells(a, 2) = Replace(Cells(a, 2), strR, "|")
    
30.                         End If
    
31.                     End If
    
32.                 End If
    
33.         Next
    
34.         Cells(a, 8) = ""
    
35.         For fLA = 2 To rN
    
36.             hbl = InStr(Cells(a, 3), Cells(fLA, 10))
    
37.             If hbl <> 0 Then
    
38.                 If hbDLq <> Cells(fLA, 12) Then
    
39.                 Cells(a, 8) = Cells(a, 8) & Cells(fLA, 11)
    
40.                 hbDLq = Cells(fLA, 12)
    
41.                 End If
    
42.             End If
    
43.         Next
    
44. Next
    
45. End Sub
    

复制代码

xiaohuaxiong

你连VBA都写成VBS，一看代码就是别人的

武陵也高手

xiaohuaxiong 发表于 2016-11-18 19:41
你连VBA都写成VBS，一看代码就是别人的

楼上的，楼主说的VBS应该是指脚本语言。还是关注一下重点吧

huangfanzhen

xiaohuaxiong 发表于 2016-11-18 19:41
你连VBA都写成VBS，一看代码就是别人的

大侠说的对，代码自己写的，只学习了一天，昨天得论坛其它大师指点
由于着急，方式拙劣，请大侠多多批评

已经上传附件了，大侠请帮忙

xiaohuaxiong

huangfanzhen 发表于 2016-11-18 20:29
大侠说的对，代码自己写的，只学习了一天，昨天得论坛其它大师指点
由于着急，方式拙劣，请大侠多多批评 ...

我不是大侠，只是你不会提问，没有看明白你要什么效果

jsgj2023

学习一天就可写出这样的代码，赞一个。

wzsy2_mrf

不要让人看代码去分析你到底要做什么，代码不是那么好理解的，时间长了有时连自己的代码都会犯晕。
你要求助只要说明你的原始数据是什么，要转换成什么样的数据，转换规则又是什么就可以了。

巴文

好了太久远