返回列表 上一主題 發帖

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

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
1# 跳轉到 »
發表於 2012-3-21 13:52 | 顯示全部帖子
回復 1# b9208

我採用的是由最後一筆該使處理~
這樣比較簡單~
有測試過了~ 沒有問題~
你再修改成適用於你要的~
  1. Sub EX_1()
  2. A = Sheet1.Range("A65536").End(xlUp).Row

  4. For I = A To 2 Step -1
  5.     If Application.CountA(Sheet1.Range(Cells(I, 4), Cells(I, 7))) = 0 And Sheet1.Cells(I, 9) = "" Then
  6.        Sheet1.Rows(I).Delete
  7.     End If
  8. Next
  9. End Sub
複製代碼
學習才能提升自己

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2012-3-22 10:56 | 顯示全部帖子
回復 4# b9208

  你自己要去思考一下~ 怎麼樣去修改程式碼~ 就能套用能你自己的需求~
  你提出來的品名重覆/單價沒有資料~ 要踢除~
  這個問題~ 你自己要去思索一下~ 你的品名與地區的關係~
  同一個品名但地區不一樣~ 也要刪除嘛??
  假設如下的例子:
  11        WE        456121        高雄        屏東                南投        6        65
  12        WE        456121        高雄        屏東        新竹        南投        6       
  
  思索一下~ 你真正要留下來的資料是什麼??
  1. Sub EX_1()
  2. 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)

  4. For I = A To 2 Step -1
  5.     If Application.CountA(Sheet1.Range(Cells(I, 4), Cells(I, 7))) = 0 Or Sheet1.Cells(I, 9) = "" Then
  6.        Sheet1.Rows(I).Delete
  7.     End If
  8. Next
  9. End Sub
複製代碼
學習才能提升自己

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題