帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: window 7
軟體版本: office 2013
閱讀權限: 10
註冊時間: 2015-11-21
最後登錄: 2015-11-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-11-21 21:57 | 只看該作者

[發問] excel vba語法：刪除K欄為空白之列

軟體:Excel

版本:2013

「第k欄」為空白者的「列」一律刪除

這個VBA的語法要怎麼寫？

例如

表格如下：

  A B C D E F G H I J  K
1 v v v v v v v v v v
2 v v v v v v v v v v v
3 v v v v v v v
4 v
5 v v v v v v v    v
6 v v v v       v v    v
7 v    v    v    v       v
8 v    v  v             v
9 v v v v    v v v    v

第1, 3, 4, 8列的K欄位 = 空白

所以第1, 3, 4, 8整列的所有資料「刪除」，讓整列儲存格消失後，

下面的資料自動往上移，不是按delete清除資料內容

謝謝

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2015-11-21 22:04 | 只看該作者

回復 1# maxmnbqq

試試

Sub test()
For i = 9 To 1 Step -1
If Cells(i, 11) = 0 Then
Cells(i, 11).EntireRow.Delete
End If
Next
End Sub

複製代碼

TOP

maxmnbqq

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: window 7
軟體版本: office 2013
閱讀權限: 10
註冊時間: 2015-11-21
最後登錄: 2015-11-21

3^#

發表於 2015-11-21 22:49 | 只看該作者

回覆owen06大大
列會一直新增下去，不只9列，共有幾列是未知數
所以無法使用For i = 9 to 1

TOP

maxmnbqq

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 4
點名: 0
作業系統: window 7
軟體版本: office 2013
閱讀權限: 10
註冊時間: 2015-11-21
最後登錄: 2015-11-21

4^#

發表於 2015-11-21 23:01 | 只看該作者

回復 2# owen06

回覆owen06大大
列會一直新增下去，不只9列，「共有幾列」是「變數」
所以無法使用For i = 9 to 1

TOP

GBKEE

超級版主 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^#

發表於 2015-11-22 07:38 | 只看該作者

回復 4# maxmnbqq
試試看

Option Explicit
Sub Ex()
'With Range("a1:m50").Columns(11) '範圍的第幾欄
With Range("a1:m50").Columns("k:k") '範圍的第k欄
If .Cells.Count <> Application.Count(.Cells) Then
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete xlUp
End If
End With
End Sub

複製代碼

SpecialCells 方法特定傳回 Range 物件，此物件代表與指定型態及值相符合的所有儲存格。Range 物件。

複製代碼

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

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-15

熱烈參與勳章

6^#

發表於 2015-11-22 11:35 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/359026428
參考

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-16

7^#

發表於 2015-11-22 17:34 | 只看該作者

Sub TEST()
On Error Resume Next '略過找不到空白格的錯誤
[K:K].SpecialCells(xlCellTypeBlanks).EntireRow.Delete '取得空白格(公式產生的""不算), 刪除
On Error GoTo 0 '恢復偵錯功能
End Sub

TOP

jukom

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: WIN7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2015-11-20
最後登錄: 2022-9-27

8^#

發表於 2015-11-25 11:26 | 只看該作者

Sub aanb()

Csh = ActiveSheet.UsedRange.Rows.Count '以整個SHEET最後一筆資料
For i = Csh To 2 Step -1 '從最後面開始作業
If Cells(i, 11) = "" Then Rows(i).Delete '如果空白則刪除

Next

End Sub

TOP

c_c_lai