b9208

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-3-21 10:28 | 只看該作者

[發問] 依照所指定欄位條件而刪除該列

各位先進您好
依照所指定欄位條件而刪除該列。
附件：當「地區1~4」及「單價」等欄位空白時，則刪除該列。
敬請先進們指導
非常感謝

AB.rar (2.51 KB)

樓主熱帖

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

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-4-23

2^#

發表於 2012-3-21 13:52 | 只看該作者

回復 1# b9208

我採用的是由最後一筆該使處理~
這樣比較簡單~
有測試過了~ 沒有問題~
你再修改成適用於你要的~

Sub EX_1()
A = Sheet1.Range("A65536").End(xlUp).Row
For I = A To 2 Step -1
If Application.CountA(Sheet1.Range(Cells(I, 4), Cells(I, 7))) = 0 And Sheet1.Cells(I, 9) = "" Then
Sheet1.Rows(I).Delete
End If
Next
End Sub

複製代碼

學習才能提升自己

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 96
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2012-3-21 18:53 | 只看該作者

本帖最後由 Hsieh 於 2012-3-21 22:40 編輯

回復 1# b9208

Sub bb()
Dim Rng As Range, A As Range
For Each A In Range("A1").CurrentRegion.Columns(9).SpecialCells(xlCellTypeBlanks)
If Application.CountA(A.Offset(, -5).Resize(, 4)) = 0 Then
If Rng Is Nothing Then
Set Rng = A
Else
Set Rng = Union(Rng, A)
End If
End If
Next
If Not Rng Is Nothing Then Rng.EntireRow.Delete
End Sub

複製代碼

學海無涯_不恥下問

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

4^#

發表於 2012-3-21 22:29 | 只看該作者

回復 2# hugh0620
謝謝前輩指導
可以使用
但例外情形是A欄最後一列如果沒有資料，則最後一列無法判斷。

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

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

5^#

發表於 2012-3-21 22:50 | 只看該作者

回復 3# Hsieh
感謝Hsieh版主
程式執行ok
再請教如依〞品名〞重複者，再判斷後面是否為空格而刪除該列
如附件

AB2.rar (2.53 KB)

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 96
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2012-3-21 23:01 | 只看該作者

回復 5# b9208

Sub bb()
Dim Rng As Range, A As Range
For Each A In Range("A1").CurrentRegion.Columns(9).SpecialCells(xlCellTypeBlanks)
If Application.CountA(A.Offset(, -5).Resize(, 4)) = 0 And Application.CountIf(Range("B:B"), A.Offset(, -7)) > 1 Then
If Rng Is Nothing Then
Set Rng = A
Else
Set Rng = Union(Rng, A)
End If
End If
Next
If Not Rng Is Nothing Then Rng.EntireRow.Delete
End Sub

複製代碼

學海無涯_不恥下問

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-4-23

7^#

發表於 2012-3-22 10:56 | 只看該作者

回復 4# b9208

  你自己要去思考一下~ 怎麼樣去修改程式碼~ 就能套用能你自己的需求~
  你提出來的品名重覆/單價沒有資料~ 要踢除~
  這個問題~ 你自己要去思索一下~ 你的品名與地區的關係~
  同一個品名但地區不一樣~ 也要刪除嘛??
  假設如下的例子:
  11 WE 456121 高雄屏東南投 6 65
  12 WE 456121 高雄屏東新竹南投 6

  思索一下~ 你真正要留下來的資料是什麼??

Sub EX_1()
A = Application.Max(Sheet1.Range("A65536").End(xlUp).Row, Sheet1.Range("B65536").End(xlUp).Row, Sheet1.Range("C65536").End(xlUp).Row, Sheet1.Range("D65536").End(xlUp).Row, Sheet1.Range("E65536").End(xlUp).Row, Sheet1.Range("F65536").End(xlUp).Row, Sheet1.Range("G65536").End(xlUp).Row, Sheet1.Range("H65536").End(xlUp).Row, Sheet1.Range("I65536").End(xlUp).Row)
For I = A To 2 Step -1
If Application.CountA(Sheet1.Range(Cells(I, 4), Cells(I, 7))) = 0 Or Sheet1.Cells(I, 9) = "" Then
Sheet1.Rows(I).Delete
End If
Next
End Sub

複製代碼

學習才能提升自己

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

8^#

發表於 2012-3-23 00:08 | 只看該作者

非常感謝前輩們的指導
執行OK了

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

TOP