samwang

大學生 Rank: 4

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

VBA刪除固定列數

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

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

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

2^#

發表於 2013-10-31 09:36 | 只看該作者

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

Sub Ex()
With Sheets(1)
.Range("A117:A132").EntireRow.Delete
.Range("A59:A74").EntireRow.Delete
.Range("A1:A16").EntireRow.Delete
End With
End Sub

複製代碼

TOP

samwang

大學生 Rank: 4

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

3^#

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

回復 2# 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

4^#

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

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

TOP

samwang

大學生 Rank: 4

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

5^#

發表於 2013-10-31 11:06 | 只看該作者

回復 4# c_c_lai

我從我們的server download 資料，資料會有上千筆，但是前面的16列是沒有用的，接著42列是有用的，一直重複的結束
現在我是用手動去刪除一筆筆逐一刪除很耗時，想用VBA解決，謝謝

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

samwang

大學生 Rank: 4

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

7^#

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

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

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

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

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