[發問] VBA如何取得最後一欄的欄數

mave

各位大大好

公司系統一次匯出各組別的報表資料時，
組別與組別之間都會有空白欄位隔開(請參考下圖)

下載 (125.28 KB)

2016-5-5 10:34

我使用VBA進行表格加工時，
想要將紅圈處的空白欄位刪除，
若使用 end(Xldown).row 語法計算總欄位數，
再使用if 判斷若為空白則 entirerow.delete
但是遇到空白欄位處就計算停止了，使用無法計算出正確總欄位數。

請問各位大大是否有其他的語法或是方式可以解決此問題嗎?

Kubi

回復 1# mave
試看看
Columns(1).SpecialCells(4).EntireRow.Delete

mave

感謝k大

我來測試看看

yangjie

回復 2# Kubi 請教
請教大大
SpecialCells(4)是什含意?

Kubi

回復 4# yangjie
4 = xlCellTypeBlanks (空白儲存格)
也就是：SpecialCells(xlCellTypeBlanks)

再看一次圖片發現若用此語法：所有的單位：小時這列都會被一併被刪除。
若只要保留第一列的單位：小時，則語法請改為如下：
Range("A3:A" & [A65536].End(3).Row).SpecialCells(4).EntireRow.Delete

ML089

還是用回圈來決解

Sub ex()
    For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If 0 = Application.CountA(Range(Cells(r, "A"), Cells(r, "F"))) Then '判斷A~F欄沒有資料才刪除此列
            Rows(r).EntireRow.Delete
        End If
    Next
End Sub

yangjie

回復 6# ML089
感謝K大 M大
學習到了

mave

回復 6# ML089

感謝M的解答
之前都沒想過用End(xlUp).Row 逆推回去
覺得也是一個不錯的方法

不過小弟也有個小問題想順便請教M大
就是為何程式碼前面都會加上Application呢?

我有在其他篇文章發問過，目前還沒有得到答案，
不知M大是否可以指教呢?

ML089

回復 8# mave

這三種都可以取得EXCEL 工作表函數在VBA中使用。

Sub ex()
a = Application.WorksheetFunction.CountA([A:A])
b = Application.CountA([A:A])
c = WorksheetFunction.CountA([A:A])
Debug.Print a, b, c
End Sub

mave

回復 9# ML089

哇~~M大的回覆真是快速
小弟剛剛也有查詢了EXCEL說明
可能是小弟功力不足，看了似懂非懂

不過看到M大的回覆之後，好像又更了解了一些
我也把說明的內容貼上面供大家參考

下載 (77.79 KB)

2016-5-17 16:24