請問一個EXCEL VBA儲存格範圍判斷是否空白

程式設計 vb excel vba

fsh18108 2012-11-23 12:11:07 ‧ 83985 瀏覽

分享至

假設a2不是空白，我要判斷A1:b1的儲存格是否為空白
If .Range("a2") <> "" And .Range("a1") = "" And .Range("b1") = "" Then MsgBox "請確認是否有跳行": Exit Sub
這樣是沒有問題
但是如果假設a11不是空白，我要判斷a1:b10的儲存格是否為空白無資料
這樣應該要怎麼寫比較好？謝謝

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

蟹老闆

iT邦大師 1 級 ‧ 2012-11-23 13:34:18

最佳解答

可以用
WorksheetFunction.CountA("A1:A10")
若小於10則表示有空的儲存格

回應
分享
檢舉

登入發表回應

ltc09

iT邦研究生 4 級 ‧ 2012-11-25 18:00:07

IF Range("A11" ).Value <> "" then
for ia = 1 to 10
if Range("A" & IA).Value <> "" OR Range("B" & IA).Value <> "" then
msgbox "有資料"
endif
next ia
endif

回應
分享
檢舉

登入發表回應

paul60209

iT邦新手 5 級 ‧ 2019-04-17 11:28:43

以下程式碼是先找出整張表格的最末後一行與最後一列的位置，
利用Ctrl+方向鍵的的概念來判斷是否有跳行的情況產生，
(因為如果中間無空格，你從最末列利用"Ctrl+方向鍵"所得到的列號應該等於1。)

Sub 是否有跳行()
Dim LR as Intenger   'LR為表格最末列號
Dim LC as Intenger   'LC為表格最右行號
Dim i as Intenger    'i為迴圈控制器
Dim CR as Intenger   'CR為檢查碼
With ActiveSheet
    LR=.cells(1048576,"A").End(xlUp).Row
    LC=.cells(1,"XFD").End(xlLeft).Column
    '如果Excel附檔名為.xls的話，把1048576改65536,"XFD"改"IV"
    For i=1 to LC
        CR=.cells(LR,i).End(xlUp).Row
        If CR<>1 Then
            Msgbox("有跳行狀況產生")
        End If
    Next
End With
End Sub

#VBA #Excel最末行 #Excel最末列 #Excel空格 #Excel跳行