c_c_lai

刪除固定列，
1~16列
59~74列
117~132列
.
.
.
資料前面16列要刪除，58列為一個區間，請問VBA如何寫
samwang 發表於 2013-10-31 08:54

1. Sub Ex()
   
2.     With Sheets(1)
   
3.         .Range("A117:A132").EntireRow.Delete
   
4.         .Range("A59:A74").EntireRow.Delete
   
5.        .Range("A1:A16").EntireRow.Delete
   
6.     End With
   
7. End Sub

複製代碼

c_c_lai

回復 3# samwang
先說說你對此案的處理方案！

c_c_lai

回復  c_c_lai


   我從我們的server download 資料，資料會有上千筆，但是前面的16列是沒有用的，接著 ...
samwang 發表於 2013-10-31 11:06

你的意思是說，在每一次從 server download 資料，資料會有上千筆，但是前面的16列是固定沒有用的，接著42列 (17 ~ 58) 是有用的？
如此不停地以此原則固定去處理 download 的資料錄？

c_c_lai

回復  c_c_lai
是的，只能手動逐一刪除資料
samwang 發表於 2013-10-31 15:57

只要將以下程式碼套入到你的程式內就 OK 了！

1.     With Sheets(1)
   
2.         '  由最底逐步往上刪除 Rows 便不會亂掉了！
   
3.         .Range("A117:A132").EntireRow.Delete
   
4.         .Range("A59:A74").EntireRow.Delete
   
5.        .Range("A1:A16").EntireRow.Delete
   
6.     End With

複製代碼