對VBA性能的失望

Question

我在Excel中寫了一個非常簡單的宏以刪除一些尾隨過多的文本。這裏是代碼：

Sub remove_excess_names_from_part_number() 
    Dim i As Integer 
    Application.ScreenUpdating = False 
    For i = 1 To 1000 
     Cells(i, 3).Value = Left(Cells(i, 3).Value, 10) 
    Next i 
    Application.ScreenUpdating = True 
End Sub 

我看不出如何能得到任何簡單的，但我對這個代碼段表現不佳的失望。 VBA是否對這樣的簡單代碼做了一些優化？

Answer 1

試試下面的代碼：

C列的結果列和數據是在A列

Sub remove_excess_names_from_part_number() 
    Application.ScreenUpdating = False 

    Dim lastRow As Long 
    lastRow = Range("A" & Rows.Count).End(xlUp).Row 
    Range("C1:C" & lastRow).FormulaR1C1 = "=Left(RC[-2],10)" 
    Application.ScreenUpdating = True 
End Sub 

Answer 2

你真的需要VBA這個？如果你願意，你可以使用Excel的文本到列

假設數據是這樣的在Excel

1. 選擇列，點擊數據|文本到列
2. 選擇Fixed Width在3
3. 步驟1中設置的3步驟2的長度如果你看到下面，我已經設置它10
4. 單擊Finish和你做。

注意：如果10字符是SPACE那麼它將在第2行

截斷，如果您還想要一個VBA解決方案，然後我會建議將整個範圍作爲@assylias建議加載到Array中，然後在執行計算後將其放回。

@Santosh也給了你一個建議，你可以一次性輸入公式到所有單元格。如果您可以使用非VBA選項，那麼您可以手動輸入公式並自動填充:)