刪除列之vba寫法 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 刪除列之vba寫法

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

刪除列之vba寫法

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

1^# 跳轉到 »

發表於 2011-6-26 16:25 | 顯示全部帖子

本帖最後由 am0251 於 2011-6-26 16:42 編輯

試一下這個

Sub test()
Dim myRowCount As Integer, Cat As Integer
myRowCount = Range("A1").CurrentRegion.Rows.Count
Cat = 1
For i = 1 To myRowCount
If Range("C" & Cat).Value <> "cat" Then
Rows(Cat).Delete Shift:=xlUp
Else
Cat = Cat + 1
End If
Next i
End Sub

複製代碼

50 字節以內
不支持自定義 Discuz! 代碼

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

2^#

發表於 2011-6-26 16:43 | 顯示全部帖子

不會吧?按"F5"再看看~

50 字節以內
不支持自定義 Discuz! 代碼

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

3^#

發表於 2011-6-26 16:46 | 顯示全部帖子

那我再試一下別的更快的方法

50 字節以內
不支持自定義 Discuz! 代碼

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

4^#

發表於 2011-6-27 14:22 | 顯示全部帖子

受教了~~!!不過我有一點看不懂的,就是".Delete (3)"括號裏的"3"是什麼意思呢?謝謝!!!

50 字節以內
不支持自定義 Discuz! 代碼

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

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