返回列表 上一主題 發帖

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

errol.sun

帖子
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

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

            





附件一


附件二
圖片 3.JPG
收藏 分享

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題