作者home0303 (Blue night)
看板Office
标题[算表] Excel VBA阵列写法求教
时间Fri Jan 21 08:31:02 2022
软体:EXCEL
版本:2010
Sub 这笔第几次出现() '220121当COUNTIF法跑不动时的替代方式
Application.ScreenUpdating = 0
For i = 1 To 1048575
If Cells(1 + i, 3 - 1) = "" Then Exit Sub
If Cells(1 + i, 3 - 1) <> Cells(1 + i - 1, 3 - 1) Then
Cells(1 + i, 3) = 1
Else
Cells(1 + i, 3) = Cells(1 + i - 1, 3) + 1
End If
Next
Application.ScreenUpdating = 1
End Sub
想请教，如何使用阵列arr的方式改写上述程式，使执行效率提升。
谢谢。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.136.168.168 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1642725064.A.DA6.html
3F：→ home0303: 谢谢W大 我研究看看 01/21 09:50