Performance 数组单元格的设置值非常简单,当他在指定列上写入时,程序速度非常慢

Performance 数组单元格的设置值非常简单,当他在指定列上写入时,程序速度非常慢,performance,excel,vba,Performance,Excel,Vba,我使用的是一个持续的老专业程序。我的程序构建了几个简单的数据数组,并将数组写入excel单元格,如下所示: Sheets("toto").Cells(4,i) = "blabla" 但是对于i的一个值,写入时间很长,我不明白为什么 这是我的密码: ... For No_Bug = 0 To Indtab - 1 If mesComments(No_Bug) <> "" Then Sheets(feuille_LBT).Cells(Ligne_Bug, 1)

我使用的是一个持续的老专业程序。我的程序构建了几个简单的数据数组,并将数组写入excel单元格,如下所示:

Sheets("toto").Cells(4,i) = "blabla"
但是对于
i
的一个值,写入时间很长,我不明白为什么

这是我的密码:

...
For No_Bug = 0 To Indtab - 1
    If mesComments(No_Bug) <> "" Then
        Sheets(feuille_LBT).Cells(Ligne_Bug, 1) = Ligne_Bug - 5
        Sheets(feuille_LBT).Cells(Ligne_Bug, 2) = mesID_Test(No_Bug)
        Sheets(feuille_LBT).Cells(Ligne_Bug, 3) = mesResultats(No_Bug)
        Sheets(feuille_LBT).Cells(Ligne_Bug, 4) = mesComments(No_Bug)
        Sheets(feuille_LBT).Cells(Ligne_Bug, 5).FormulaLocal = mesScreens(No_Bug)
        Sheets(feuille_LBT).Cells(Ligne_Bug, 6) = 2 'If I comment only this line, the programm is fast, ifnot the programm is very slow (~1, 2 secondes per loop), What the hell ??? xD
        Sheets(feuille_LBT).Cells(Ligne_Bug, 7) = 1
End If 
...
。。。
对于Indtab-1,无错误=0
如果mesComments(无错误)“,则
表格(feuille_LBT)。单元格(Ligne_Bug,1)=Ligne_Bug-5
表(feuille\u LBT).单元格(对齐错误,2)=中间测试(无错误)
表(feuille\u LBT).单元格(对齐错误,3)=中间结果(无错误)
表格(feuille)。单元格(对齐错误,4)=注释(无错误)
表格(feuille)。单元格(Ligne_Bug,5)。公式本地=消息(无Bug)
Sheets(feuille_LBT).Cells(Ligne_Bug,6)=2'如果我只注释这一行,程序很快,如果不是程序很慢(~1,每个循环2秒),那又是什么呢???除息的
表(feuille\u LBT)。单元格(对齐错误,7)=1
如果结束
...

此单元格是否从其他单元格引用?检查是否有与此单元格相关的复杂计算。

您能告诉我如何检查此单元格是否引用了其他单元格吗?我是一个可怜的新手。。。使用visual basic有没有一种简单的方法可以做到这一点?该程序是“大”的,Excel包含几个工作表(可能是另一张“听”列的工作表?我发现参考=)来自一个图形表。。。感谢您为我们指路(Anefeletos=)