[發問] EXCEL VBA由OFFICE 03轉去2010就有問題

kennet

之前用03版本時還好好的, 但公司電腦一轉用2010版本時行那個VBA便出現問題了
"執行階段錯誤1004": 應該程式或物件定義上的錯誤

1. ' Delete 小計
   
2. Sheets("Summary").Select
   
3. x = 4
   
4. Do Until word = "小計"
   
5. word = Right(Cells(x, 5), 2)
   
6. x = x + 1
   
7. Loop
   
8. Cells(x - 1, 5).Delete
   
9. x1 = 4
   
10. Do Until word1 = "小計"
    
11. word1 = Right(Cells(x1, 4), 2)
    
12. x1 = x1 + 1
    
13. Loop
    
14. Cells(x1 - 1, 4).Delete
    
15. x2 = 4
    
16. Do Until word2 = "小計"
    
17. word2 = Right(Cells(x2, 3), 2)
    
18. x2 = x2 + 1
    
19. Loop
    
20. Cells(x2 - 1, 3).Delete
    
21. x3 = 4
    
22. Do Until word3 = "小計"
    
23. word3 = Right(Cells(x3, 2), 2)
    
24. x3 = x3 + 1
    
25. Loop
    
26. Cells(x3 - 1, 2).Delete
    
27. x4 = 4
    
28. Do Until word4 = "小計"
    
29. word4 = Right(Cells(x4, 1), 2)
    
30. x4 = x4 + 1
    
31. Loop
    
32. Cells(x4 - 1, 1).Delete

複製代碼

偵錯時點出第5句語法出現問題, 請問如何解決?

oobird

沒附文檔看不出第5行錯在哪裡。
你可以改用這個程式碼試試：

1. Sub test()
   
2. [a:e].Replace "小計", "=1/0"
   
3. [a:e].SpecialCells(xlCellTypeFormulas, 16).Delete (3)
   
4. End Sub

複製代碼

oobird

若不是整列刪除把Delete (3)改成Delete (2)

register313

回復 1# kennet

1.儲存格內找不到"小計",造成無窮迴圈
2.程式語法可精簡
3.請附上excel檔案

kennet

現附上EXCEL檔, 望各位大大幫忙

register313

回復 5# kennet

小計 改為 合計

kennet

回復  kennet

小計 改為 合計
register313 發表於 2012-5-28 12:57

成功了!! 多謝大大幫忙!感激不盡