请问,帮帮忙看看下面这段程序为什么运行那么长时间啊,A B 1238 136

请问,帮帮忙看看下面这段程序为什么运行那么长时间啊,A B 1238 136

A B 1238 136.8 01 1522 137.5 271560 137.58 33 1982 138.58 112 .15188 .5231 我在excel vba插入下面这段代码，为什么运行那么长时间，我从A1~A10取10个数，A1到A10按从大到下排列的，然后在每两个数中间插入自然数使它按自然数排列，比如A1:A2之间要变成1238，1239....1321,对于每一个数B1~B10,C1~C10也按等差插补，插补完了，后面函数只要调用任意一个A里面的数据马上对应一个B，C数据，在别的表格只要调用任意一个A马上查到B和C里面的数据帮帮忙阿 sub aa() Dim ig() As Long Dim iz() As Double Dim iqchu() As Double Dim i, j, m, k, t, p As Long ReDim ig(10000) ReDim iz(10000) ReDim iqchu(10000) k = 1 For j = 1 To 9 t = Worksheets(Sheet1).Cells(j + 1, 1) - Worksheets(Sheet1).Cells(j, 1) ig(k) = Worksheets(Sheet1).Cells(j + 1, 1) ig(k + t) = Worksheets(Sheet1).Cells(j, 1) iz(k) = Worksheets(sheet1).Cells(j + 1, 2) iz(k + t) = Worksheets(Sheet1).Cells(j + 1, 2) iqchu(k) = Worksheets(Sheet1).Cells(j + 2, 3) iqchu(k + t) = Worksheets(Sheet1).Cells(j + 2, 3) For m = k + 1 To k + t - 1 ig(m) = ig(k) + 1 iz(m) = iz(k) + (iz(k + t) - iz(k)) / t iqchu(m) = iqchu(k) + (iqchu(k + t) - iqchu(k)) / t Next m k = k + t Next j sub