samwang

大學生 Rank: 4

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-10-31 08:54 | 只看該作者

VBA刪除固定列數

刪除固定列，
1~16列
59~74列
117~132列
.
.
.
資料前面16列要刪除，58列為一個區間，請問VBA如何寫

樓主熱帖

ui123

中學生 Rank: 2

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

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

14^#

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

謝謝大大的解說

TOP

samwang

大學生 Rank: 4

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

13^#

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

回復 11# luhpro

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

TOP

samwang

大學生 Rank: 4

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

12^#

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

回復 9# georgema

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

TOP

luhpro

高中生 Rank: 3 Rank: 3

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

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

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

10^#

發表於 2013-10-31 20:19 | 只看該作者

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

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

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

複製代碼

TOP

georgema

小學生 Rank: 1

帖子: 8
主題: 2
精華: 0
積分: 15
點名: 0
作業系統: WINDOWS XP
軟體版本: Office 2003
閱讀權限: 10
性別: 男
來自: 新北市
註冊時間: 2013-9-9
最後登錄: 2015-7-26

9^#

發表於 2013-10-31 17:56 | 只看該作者

請試試看下列程式：

Sub delRows()
Dim i&, j&, x%, y%
j = Range("a1").End(xlDown).Row
MsgBox "j = " & j
j = j / 42
MsgBox "New j = " & j
x = 1
y = 16
For i = 1 To j
If i = 1 Then
Rows(x & ":" & y).Select
Selection.Delete Shift:=xlUp
Else
x = x + 42
y = y + 42
Rows(x & ":" & y).Select
Selection.Delete Shift:=xlUp
End If
Next i
End Sub

複製代碼

George Ma

TOP

tpwhdavid

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 19
點名: 0
作業系統: windower 7
軟體版本: 2010
閱讀權限: 10
性別: 男
註冊時間: 2013-10-24
最後登錄: 2020-1-30

8^#

發表於 2013-10-31 16:45 | 只看該作者

要由下往上刪除 row 才不會跑掉

TOP

samwang

大學生 Rank: 4

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

7^#

發表於 2013-10-31 15:57 | 只看該作者

回復 6# c_c_lai
是的，只能手動逐一刪除資料

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

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

回復 c_c_lai

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

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

TOP