如何用语句判断一列为空

0wchz

a-z列，如何用语句判断一列为空，谢谢

yxp

这不是很简单么

1. Sub test()
   
2. Dim i As Integer, rowMax As Long
   
3. Const Max = 1048576
   
4. For i = 1 To 26
   
5.     If Cells(1, i) = "" Then
   
6.         rowMax = ActiveSheet.Cells(1, i).End(xlDown).Row
   
7.         If rowMax >= Max Then
   
8.             MsgBox "第" & i & "列是空的"
   
9.         Else
   
10.             MsgBox "第" & i & "列有数据"
    
11.         End If
    
12.     End If
    
13. Next
    
14. End Sub

复制代码

tmplinshi

1. Function IsEmptyColumn(index) As Boolean
   
2.     IsEmptyColumn = WorksheetFunction.CountA(Columns(index)) = 0
   
3. End Function

复制代码

1. Function IsEmptyColumn(index) As Boolean
   
2.     IsEmptyColumn = Columns(index).Find("*") Is Nothing
   
3. End Function

复制代码

准提部林

For i = 1 To 26
    If Columns(i).Find("?*") Is Nothing Then MsgBox "列" & i & "為空"
Next i