帖子: 23
主題: 5
精華: 0
積分: 46
點名: 0
作業系統: XP
軟體版本: OFFICE2007
閱讀權限: 10
性別: 男
註冊時間: 2012-9-20
最後登錄: 2020-6-19

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-9-20 13:18 | 只看該作者

[發問] 請教刪除一整列問題

各位大大您好

附件中，如果我N行的任一個儲存格是0的話
就把0所在的那一列整列刪除
我應該要怎麼下指令
感謝您

Book1.zip (8.09 KB)

附件

樓主熱帖

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兔年全勤獎章

2^#

發表於 2012-9-20 16:57 | 只看該作者

本帖最後由 GBKEE 於 2012-9-20 17:00 編輯

回復 1# xbzxbzxbz

Option Explicit
Sub Ex()
Dim R As Range, Rng As Range
For Each R In ActiveSheet.Range("J:N").SpecialCells(xlCellTypeConstants).Rows
'ActiveSheet(作用工作表) SpecialCells(xlCellTypeConstants "包含常數的儲存格")
If Not IsError(Application.Match(0, R, 0)) Then
'工作表函數Match 尋找到0 傳回數字,找不到0 傳回錯誤值 #N/A
If Rng Is Nothing Then Set Rng = R Else Set Rng = Union(R, Rng)
'Union 方法傳回兩個或多個範圍的合併範圍。
End If
Next
If Not Rng Is Nothing Then Rng.EntireRow.Delete '範圍整欄刪除
End Sub

複製代碼

TOP

xbzxbzxbz

小學生 Rank: 1

帖子: 23
主題: 5
精華: 0
積分: 46
點名: 0
作業系統: XP
軟體版本: OFFICE2007
閱讀權限: 10
性別: 男
註冊時間: 2012-9-20
最後登錄: 2020-6-19

3^#

發表於 2012-9-20 17:38 | 只看該作者

回復 2# GBKEE

GBKEE大大

我對您的景仰有如滔滔江水連綿不絕

感謝您

TOP

xbzxbzxbz

小學生 Rank: 1

帖子: 23
主題: 5
精華: 0
積分: 46
點名: 0
作業系統: XP
軟體版本: OFFICE2007
閱讀權限: 10
性別: 男
註冊時間: 2012-9-20
最後登錄: 2020-6-19

4^#

發表於 2012-9-26 10:31 | 只看該作者

回復 2# GBKEE

請問一下各位大大

這個公式是當N欄位的值為0的時後，刪除一整列
Option Explicit
Sub Ex()

Dim R As Range, Rng As Range

For Each R In ActiveSheet.Range("N:N").SpecialCells(xlCellTypeConstants).Rows

   If Not IsError(Application.Match(0, R, 0)) Then

      If Rng Is Nothing Then Set Rng = R Else Set Rng = Union(R, Rng)

   End If

Next

If Not Rng Is Nothing Then Rng.EntireRow.Delete

End Sub

若要改成N欄位的值超過1800的時後，刪除一整列
請問要如何進行修改?
感謝!!

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^#

發表於 2012-9-26 13:43 | 只看該作者

回復 4# xbzxbzxbz
請到工作表查看函數Match說明
Match_type 是個數字，其值有三種可能：-1、0 或 1。用以指定 Microsoft Excel 如何從 lookup_array 裡尋找 lookup_value。
如果 match_type 是 1，則 MATCH 函數會找到等於或僅次於 lookup_value 的值。Lookup_array 必須以遞增次序排列：...-2, -1, 0, 1, 2, ..., A-Z, FALSE, TRUE。
如果 match_type 是 0，則 MATCH 函數會找第一個完全等於 lookup_value 的比較值。Lookup_array 可以依任意次序排列。
如果 match_type 是 -1，則 MATCH 函數會找到等於或大於 lookup_value 的最小值。Lookup_array 必須以遞減次序排序：TRUE, FALSE, Z-A, ...2, 1, 0, -1, -2, ...，以此類推。
如果 match_type 引數被省略，則假設其值為 1。

Option Explicit
Sub Ex()
Dim R As Range, Rng As Range
For Each R In ActiveSheet.Range("J:N").SpecialCells(xlCellTypeConstants).Rows
'ActiveSheet(作用工作表) SpecialCells(xlCellTypeConstants "包含常數的儲存格")
If Not IsError(Application.Match(1800, R, -1)) Then
'工作表函數Match 尋找到0 傳回數字,找不到0 傳回錯誤值 #N/A
If Rng Is Nothing Then Set Rng = R Else Set Rng = Union(R, Rng)
'Union 方法傳回兩個或多個範圍的合併範圍。
End If
Next
If Not Rng Is Nothing Then Rng.EntireRow.Delete '範圍整欄刪除
End Sub

複製代碼

TOP

xbzxbzxbz

小學生 Rank: 1

帖子: 23
主題: 5
精華: 0
積分: 46
點名: 0
作業系統: XP
軟體版本: OFFICE2007
閱讀權限: 10
性別: 男
註冊時間: 2012-9-20
最後登錄: 2020-6-19

6^#

發表於 2012-9-26 14:33 | 只看該作者

回復 5# GBKEE

感謝GBKEE大大詳細的解說
又學到一招了
真的感謝您

TOP