WPS使用FOR循环，速度奇慢。

AHMGCXH

WPS使用FOR循环，速度奇慢。


Sheets("出入库明细").Activate
    reclen = Sheets("出入库明细").UsedRange.Rows.Count
    n = 0
  For k = 1 To gjs
  For i = 11 To reclen
        If Sheets("出入库明细").Cells(i, 6) = Sheets("出库录入").Cells(15 + n, 4).Text Then
           
           Sheets("出入库明细").Cells(i, 13) = Sheets("出库录入").Cells(12, 3).Text
           Sheets("出入库明细").Cells(i, 14) = Sheets("出库录入").Cells(12, 4).Text
           Sheets("出入库明细").Cells(i, 15) = Sheets("出库录入").Cells(12, 5).Text
           Sheets("出入库明细").Cells(i, 16) = Sheets("出库录入").Cells(12, 7).Text
           Sheets("出入库明细").Cells(i, 17) = Sheets("出库录入").Cells(12, 9).Text
           Sheets("出入库明细").Cells(i, 18) = Sheets("出库录入").Cells(15 + n, 13).Text
           Sheets("出入库明细").Cells(i, 19) = Sheets("出库录入").Cells(12, 11).Text
           Sheets("出入库明细").Cells(i, 20) = Sheets("出库录入").Cells(12, 10).Text
           Sheets("出入库明细").Cells(i, 23) = Sheets("出库录入").Cells(15 + n, 13).Text
           Sheets("出入库明细").Cells(i, 24) = Sheets("出库录入").Cells(15 + n, 14).Text
           Sheets("出入库明细").Cells(i, 25) = Sheets("出库录入").Cells(12, 12).Text
           Sheets("出入库明细").Cells(i, 26) = Sheets("出库录入").Cells(12, 13).Text
           Sheets("出入库明细").Cells(i, 27) = Sheets("出库录入").Cells(12, 14).Text
           n = n + 1
           Else
         End If
   Next i
   Next k

请教：代码哪里有问题。谢谢！

tspliu

arr=usedrange

'你的代码------------里面的Sheets("出入库明细").Cells替换成arr

usedrange=arr

xunanming

单元格循环数据量大,运行效率就是慢.最好采用数组.

AHMGCXH

谢谢指点，数组没用过，有点晕！

mmwwdd

用单元格确实慢，快就用数组

mmwwdd

AHMGCXH

mmwwdd 发表于 2023-4-13 19:24

谢谢！非常感谢！

AHMGCXH

mmwwdd 发表于 2023-4-13 19:24

感谢师傅的帮助。代码运行后，速度极快，但是，sheets（“出入库明细”）单元格中，无数据，未能获取，数组对应的sheets（“出库录入”）单元格中的值，不知何故？

xunanming

AHMGCXH 发表于 2023-4-14 16:27
感谢师傅的帮助。代码运行后，速度极快，但是，sheets（“出入库明细”）单元格中，无数据，未能获取，数 ...

数组没有输出.
sheets("出入库明细").range("a1").resize(ubound(arr),ubound(arr,2))=arr
range("a1")是放置数据的首个单元格,自行修改.

mmwwdd

AHMGCXH 发表于 2023-4-14 16:27
感谢师傅的帮助。代码运行后，速度极快，但是，sheets（“出入库明细”）单元格中，无数据，未能获取，数 ...

你发附件上来