返回列表 上一主題 發帖

VBA刪除固定列數

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

不管你原稿有幾列都適用 : (可用空表測試, 只要 A1=1 然後遞增儲存格內值到想要的列數, 再跑此程式即可知結果)
  1. Sub NN()
  2.   Dim lRows&
  3.   
  4.   lRows = 1
  5.   Do While Cells(lRows, 1) <> ""
  6.     Rows(lRows & ":" & lRows + 15).Delete
  7.     lRows = lRows + 42
  8.   Loop
  9. End Sub
複製代碼

TOP

回復 9# georgema


    因為無用的資料16列中有些空格,所以程式無法執行,

TOP

回復 11# luhpro


    謝謝大大幫忙,測試沒問題

TOP

謝謝大大的解說

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題