VBA刪除固定列數 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » VBA刪除固定列數

返回列表下一主題上一主題發帖

VBA刪除固定列數

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

11^# 跳轉到 »

發表於 2013-10-31 21:12 | 只看該作者

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

不管你原稿有幾列都適用 : (可用空表測試, 只要 A1=1 然後遞增儲存格內值到想要的列數, 再跑此程式即可知結果)

Sub NN()
Dim lRows&
lRows = 1
Do While Cells(lRows, 1) <> ""
Rows(lRows & ":" & lRows + 15).Delete
lRows = lRows + 42
Loop
End Sub

複製代碼

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

12^#

發表於 2013-11-1 07:34 | 只看該作者

回復 9# georgema

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

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

13^#

發表於 2013-11-1 07:53 | 只看該作者

回復 11# luhpro

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

中學生 Rank: 2

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

14^#

發表於 2013-11-7 19:40 | 只看該作者

謝謝大大的解說

靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。

返回列表下一主題上一主題