返回列表下一主題上一主題發帖

[發問] 如何刪除不規則空白列

errol.sun

小學生 Rank: 1

帖子: 4
主題: 2
精華: 0
積分: 40
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2011-1-19
最後登錄: 2012-3-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

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



附件一