代码优化

雷雷爸

各位大神老师好，我前段时间做个了表，用了一些代码，也是各位老师帮忙的，现在有个问题请各位老师能不能帮我优化一下代码运行很慢的问题，问题主要就是序号更新，如果B列向下填充多行内容的时候，序号更新需要等很久才能完成，请问还能把序号更新速度优化的更快一点吗？模块中也有一个序号更新是用按钮触发的，运行也是很慢，麻烦各位大神帮忙。

盼盼198310

.............

准提部林

Worksheet_Change 那段...讓檔案陷入百難之境,
每key個字, 就執行一次迴圈,
這檔能用嗎???

序號用公式不行嗎?

准提部林

Sub 更新序号()
Application.ScreenUpdating = False
Range([a5], [a5].End(3)(5)).ClearContents
With Range([a5], [b65536].End(3)(1, 0))
     .Formula = "=row()-4"
     .Value = .Value
End With
End Sub

准提部林

這段也改下//
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
     If .Column = 2 And .Row > 4 Then
        If .Value <> "" Then
           With .Cells(1, 0)
                .Formula = "=row()-4"
                .Value = .Value
           End With
        End If
     End If
End With
End Sub

雷雷爸

盼盼198310 发表于 2023-6-17 11:48
.............

非常感谢老师，太完美了