如何優化此代碼？

Question

每當單元格值（1,2）發生更改時，它會將該值和單元格的值（10,19）分別粘貼到列A & B中 我的Excel VBA使Excel在單元格的值1,2）變化：

Dim a As Variant 

Dim j As Integer 
Dim b As Variant 
Dim l As Integer 




Private Sub Worksheet_Change(ByVal Target As Range) 

If Cells(j + 3, 1).Value = Cells(j + 2, 1).Value Then 
      j = j 
      Else 
      j = j + 1 

     End If 

    If l < j Then 
b = Cells(10, 19).Value 
Cells(j + 1, 2).Value = b 

End If 
l = j 
a = Cells(1, 2).Value 
Cells(j + 3, 1).Value = a 


End Sub 

Private Sub Combobox1_Change() 
Cells(1, 2) = Combobox1.Value 

End Sub 

我該如何防止這種情況發生？

Answer 1

首先，您的格式設置很難閱讀。
其次，在更改值時不會禁用事件，導致最終的堆棧溢出或內存不足錯誤，這會使速度變慢。

格式化，並提高代碼：

Dim a 
Dim j As Integer 
Dim b 
Dim l As Integer 

Private Sub Worksheet_Change(ByVal Target As Range) 
If Intersect(Target, "A:A") Is Nothing Then Exit Sub 'don't run unless change in column A 

Application.EnableEvents = False 'stop executing this code until we are done 
If Cells(j + 3, 1).Value = Cells(j + 2, 1).Value Then 
    j = j 
Else 
    j = j + 1 
End If 

If l < j Then 
    b = Cells(10, 19).Value 
    Cells(j + 1, 2).Value = b 
End If 

l = j 
a = Cells(1, 2).Value 
Cells(j + 3, 1).Value = a 
Application.EnableEvents = True 
End Sub 

Private Sub Combobox1_Change() 
Cells(1, 2) = Combobox1.Value 
End Sub