如何使用vba检查Excel工作表列中是否存在空白单元格答案

【问题标题】：How to check if blank cells are present in a excel sheet column using vba如何使用vba检查Excel工作表列中是否存在空白单元格
【发布时间】：2014-05-02 17:42:06
【问题描述】：

我正在将 Excel 工作表数据传输到访问表中。我正在尝试查找指定列是否有任何空白，然后提示用户。如何使用 vba 检查列中的空白单元格。

我的访问 VBA

 Dim ExcelApp As New Excel.Application
 Dim ExcelBook As New Excel.Workbook        
 Dim rngblankcells As Excel.Range
 StrFileName="C:\temp\sample.xls"

 Set rngblankcells = ExcelBook.Worksheets("sheet1").Range("AF1:AF178")
 If Not IsEmpty(rngDefine) Then

  MsgBox "empty"

  Else

  'Tranfer sheet

        DoCmd.TransferSpreadsheet transfertype:=acImport, _
        tablename:=table1, _
        FileName:=StrFileName, Hasfieldnames:=True, _
        Range:="Sheet1!A:BF", SpreadsheetType:=5

  End If

但不是

   .Range("AF1:AF178")

我需要指定列名。因为范围在所有工作表中都是不确定的，但具有相同的列名。

【问题讨论】：

标签： ms-access vba

【解决方案1】：

如果我需要在将 Excel 电子表格中的数据导入 Access 时对其进行转换，我将逐行逐列地进行，可能会填充连接到 Access 数据库的记录集。我可能会做的一件事是检查一个空单元格，如果它是空的，则输出一个默认值。

IIf(IsEmpty(Cells(rowNumber,colNumber)), "My default value", Cells(rowNumber,colNumber))

这回答了最初的问题，“如何使用 vba 检查 Excel 工作表列中是否存在空白单元格。”

【讨论】：

rowNumber,colNumber 不是常数。因为这些数字可能会根据工作簿而改变。无论如何我只能使用列名
你在循环遍历行吗？
no.. 我没有在特定的行中看到，但在整个列中
您的 VBA 如何将数据从 Excel 传输到 Access？
请尽量充实您的答案。仅仅发布一个没有任何解释或上下文的代码块是不好的，对于将来寻找这个问题的答案的人来说可能没有多大价值。