如何利用VBA求Excel中非空單元格的個數(shù)
Excel是眾所周知的一種強(qiáng)大的數(shù)據(jù)處理軟件,它可以通過內(nèi)置的VBA編程實現(xiàn)各類操作。今天,我們將為大家介紹如何使用VBA編程來求Excel區(qū)域中非空單元格的數(shù)量。打開含有數(shù)據(jù)的Excel表格首先,我
Excel是眾所周知的一種強(qiáng)大的數(shù)據(jù)處理軟件,它可以通過內(nèi)置的VBA編程實現(xiàn)各類操作。今天,我們將為大家介紹如何使用VBA編程來求Excel區(qū)域中非空單元格的數(shù)量。
打開含有數(shù)據(jù)的Excel表格
首先,我們需要打開一個含有數(shù)據(jù)的Excel表格,如下圖所示。在這里,我們將以該工作表為例,演示如何求出所有非空單元格的個數(shù)。
點擊“開發(fā)工具”選項卡中的“Visual Basic”
接下來,我們需要點擊Excel的“開發(fā)工具”選項卡中的“Visual Basic”按鈕,如下圖所示。這將會打開一個新的窗口,進(jìn)入到VBA編輯界面。
輸入VBA代碼
在打開的VBA編輯界面中,我們需要先點擊左側(cè)數(shù)據(jù)所在工作表,然后在右側(cè)彈出的代碼編輯區(qū)中輸入以下代碼:
Sub 魚木混豬()
For Each r In UsedRange
If r <> "" Then k k 1
Next
MsgBox k
End Sub
如下圖所示。
這段代碼使用了一個For循環(huán),遍歷Excel表格中的每一個單元格。當(dāng)單元格不為空時,就將計數(shù)器k加1。最后,我們使用MsgBox函數(shù)將計數(shù)器k的值輸出到屏幕上。
運行VBA代碼
完成上述代碼的輸入之后,我們需要點擊代碼中的任意位置,然后再點擊上方的“運行子程序”按鈕,如下圖所示。
這樣,就會在Excel中顯示當(dāng)前工作表中所有非空單元格的個數(shù),如下圖所示。
總結(jié)
本文向大家介紹了如何使用VBA編程來求Excel中非空單元格的數(shù)量。通過編寫簡單的VBA代碼,我們能夠通過快捷而高效的方式獲取到Excel工作表中所有非空單元格的個數(shù),提高了工作效率。