谁能帮我提高程序运行效率？

ok0551

我将代码贴上，同时也传上附件。。。要求是在表一里批量输入单号及入库数量，执行程序后先判断表二中入库数量与出库数量列是否为空，如果为空则直接将单号与入库数量填入相应的行，如果不为空则另一行填入相应的数据。。。。出库程序也是一样。。。多谢大虾指点。。。我写的代码能正确执行，可是感觉速度低，因为执行了好多循环与嵌套。。。。有没有高手可以用数组的方法提高效率？？？？？？或者别的方法，只要能提高速度就行。。。
Sub 入库修改后()
Dim a, b, c, d As Integer
Dim bb, cc, dd As String
Dim a1, b1 As Range
a = Sheets(1).Cells(65000, 11).End(xlUp).Row '判断总行数
Worksheets(1).Activate
Application.ScreenUpdating = False
For b = 2 To a '每行都判断
    If Cells(b, 11) <> "" Then
        aa = Cells(b, 2)
            c = Sheets(2).Range("B:B").Cells.Find(aa).Row
            ff = "=countif(进出库明细表!B:B,""" & aa & """)"
            Cells(1, 13).Formula = ff
            d = Cells(1, 13).Value
        If Sheets(2).Cells(c, 7) = "" And Sheets(2).Cells(c, 9) = "" Then
            Sheets(2).Cells(c, 8) = Cells(b, 10)
            Sheets(2).Cells(c, 9) = Cells(b, 11)
            Sheets(2).Cells(c, 5) = Date
            Else
                Sheets(2).Rows(c + d).Insert
                Sheet2.Range(Sheet2.Cells(c + d, 1), Sheet2.Cells(c + d, 4)).Value = Sheet2.Range(Sheet2.Cells(c, 1), Sheet2.Cells(c, 4)).Value
                Sheets(2).Cells(c + d, 8) = Cells(b, 10)
                Sheets(2).Cells(c + d, 5) = Date
                Sheets(2).Cells(c + d, 9) = Cells(b, 11)
        End If
    End If
Next b
f = 2
Do While Sheets(2).Cells(f, 1) <> ""
    Sheets(2).Cells(f, 1) = f - 1
    f = f + 1
Loop
Range("J2:K65000").Clear
Application.ScreenUpdating = True
End Sub

ok0551

我用sepron 1.4G处理器 512M内存测试，如果在表一里输入超过四十行的话，程序执行真的慢，大概要一分多钟。。。。还有个问题，一般的小程序我也会编，但是我只会用循环FOR NEXT方法  而不会用数组的形式。以前单位有个哥们，几千行数据编个程序处理也就是几秒钟的事，真是佩服。可惜他写的好多程序我都没能考下来研究一下。。。。。。谁能推荐关于数组的贴子？？？？

ok0551

如题。。。。

ok0551

高手来帮帮我吧。。。

oobird

请理解研究别人的代码来了解要运行的是什么样的工作是很辛苦的，你如果愿意把你的代码的目的及相关处作个说明，让别人重新写过，会省下很多时间，别人也会很乐意尝试的。

ok0551

理解OOBIRD版主，我的程序应该说明的够理解了吧？附近里也有说明。。

jygzcj

多用数组...就快很多.