麻辣家族討論版版 » Excel程式區 » 新手請教為何我刪除列都會留一列

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

[發問] 新手請教為何我刪除列都會留一列

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-9-10 22:37 | 只看該作者

[發問] 新手請教為何我刪除列都會留一列

小第剛學VBA 昨天學到用DELETE(3)可以刪除列就學用但都會留一列無法刪除我指定的
Sub xusre()

Dim i As Integer
For i = 2 To 500
If Cells(i, 3).Value = "全數下架" Then
Cells(i, 3).delete (3)

End If
Next i
End Sub
為何我執行後都會留一行沒刪除

無法刪除列.rar (27.95 KB)
我新手但我會努力學習的

樓主熱帖

收藏

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

7^#

發表於 2013-9-11 19:28 | 只看該作者

謝謝大家的解釋我了解拉愛死你們大家拉謝謝

中學生 Rank: 2

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

6^#

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

回復 3# hu0318s

http://forum.twbts.com/redirect.php?goto=findpost&ptid=10411&pid=58362&fromuid=12328

回復5# G大的意思

你用迴圈的時候，Step 就是步數的意思

假設你從小到大以1 TO 10 來講

Step 1 就是  1  2 3  4 5 6  7 8 9 10  (每次跨一步)

Step2  就是 1  3  5  7  9  (每次跨兩步)

那你從大到小以10 TO 1

Step -1 就是 10  9  8 7  6  5  4 3  2 1

Step -2 就是 10  8  6  4  2

這樣子分解動作應該比較了解。

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2013-9-11 06:44 | 只看該作者

回復 3# hu0318s

Option Explicit
Sub Ex()
Dim i As Integer
For i = 1 To 50 '=>Step 1
Debug.Print i
Next
For i = 1 To 50 Step 5 '正 i 由小往大
Debug.Print i
Next
For i = 50 To 1 Step -5 '負 i 由大往小
Debug.Print i
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

4^#

發表於 2013-9-11 00:17 | 只看該作者

499 =500-1
step =-1

3=2+1
step =1

ss

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

3^#

發表於 2013-9-10 22:59 | 只看該作者

謝謝大大可以用那我可以請問一下Step -1不太了解它的用意

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2013-9-10 22:42 | 只看該作者

小第剛學VBA 昨天學到用DELETE(3)可以刪除列就學用但都會留一列無法刪除我指定的
Sub xusre()

Dim i ...
hu0318s 發表於 2013-9-10 22:37

刪東西的話通常倒數會比較方便

Sub xusre()
Dim i As Integer
For i = 500 To 2 Step -1
If Cells(i, 3).Value = "全數下架" Then
Cells(i, 3).delete (3)
End If
Next i
End Sub

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

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