標題: [發問] 如何刪除不規則空白列 [打印本頁]

---

作者: errol.sun    時間: 2011-2-16 23:45     標題: 如何刪除不規則空白列

Dear 版主
           小弟之前有請教過 選擇性空白列,如何刪除 的帖子,也很感謝版主不吝的指導

            下面為版主所指導程式
              01.Sub nn()

                     02.For i = Sheet1.UsedRange.Rows.Count To 1 Step -1

                     03.   If Application.CountA(Sheet1.UsedRange.Rows(i)) = 0 Then Sheet1.UsedRange.Rows(i).Delete

                     04.Next

                    05.End Sub

                   後來資料有所差異,而變的是如果A欄位有不規則性空白,其後面欄位卻有資料存在,如何將只有A欄位的空白列刪除,如附件一所示

             接下來小弟不斷思考版主所撰寫的程式,並將有所修改,下面為小弟為參考版主程式修正的,雖然整個程式幾乎是一樣的,

                   這還是小弟第一次吸收後,再自已try過,其附件二為執行後畫面

             Public Sub wolf()

                      For i = Sheet1.UsedRange.Rows.Count To 1 Step -1

                          If Application.CountIf(Sheet1.UsedRange.Rows(i), "") Then
   
                               Sheet1.UsedRange.Rows(i).Delete
      
                          End If
   
                  Next

           End Sub

                  在這邊也想請教版主,是否還有修正之處,請不吝指教

            





附件一
[attach]4749[/attach]

附件二
[attach]4750[/attach]

---

作者: GBKEE    時間: 2011-2-17 15:20

回復 1# errol.sun

1. Public Sub wolf()
   
2.     Dim I As Integer
   
3.      With Sheet1.UsedRange
   
4.         For I = .Rows.Count To 1 Step -1
   
5.             If Application.CountA(.Rows(I)) <> .Columns.Count Then .Rows(I).Delete
   
6.         Next
   
7.     End With
   
8. End Sub
   
9. 
   
10. Sub Ex()
    
11.      With Sheet1.UsedRange
    
12.         .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
13.     End With
    
14. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)