提高效率

Lin_qing

大家好，目前遇到一个关于执行效率的问题。写了个程序，但是用时太久。希望指点下提高效率。谢谢

程序的功能是这样的：第一个先导入origin数据，然后再导入医院规范origin数据，再去做匹配和数据透视表

b_57

简单看了下，你的循环太多。
比如
For i = 2 To MaxRow
    k = RawData(i, YY)
    If myDic.exists(k) Then
        RawData(i, YYGF) = myDic.Item(k)
    Else
        RawData(i, YYGF) = k
    End If
Next i


For i = 2 To MaxRow
    RawData(i, DQ) = 计算大区(RawData(i, SF))
    RawData(i, YYandKS) = RawData(i, YYGF) & RawData(i, KS)
Next i

这2个循环为啥不能合并一起？ 一个循环里全部做完。你要做2次？

某些函数你不要用循环统计个数，比如
Function 判断某个列数(ByVal a As String)
Dim i As Integer
i = 1
Do While Cells(1, i) <> ""
    If Cells(1, i) <> a Then
        i = i + 1
    Else
        Exit Do
    End If
Loop

Cells(1, i) = a
判断某个列数 = i

End Function
我会直接用application.worksheetfunction.countif()，比你速度快。