创建可跳过无数据行的查询列表

Question

我有以下代码，该代码查看具有电子邮件地址的一系列单元格，并将它们连接成一个逗号分隔的字符串。

Function CombineEmails(myRange As Range) As String
Dim cell As Range
For Each cell In myRange
    CombineEmails = CombineEmails & "," & cell.Value
Next cell

CombineEmails = Right(CombineEmails, Len(CombineEmails) - 1)

End Function

我需要能够添加一定范围的空白单元格，以说明电子表格中的新电子邮件地址。还有一些单元格的电子邮件地址为空。

如何忽略/跳过范围内的空记录？

Answer 1

Function CombineEmails(myRange As Range) As String 
    Dim cell As Range 
    For Each cell In myRange
        If Not Cell = vbNullString Then CombineEmails = CombineEmails & "," & cell.Value 
    Next cell

        CombineEmails = Right(CombineEmails, Len(CombineEmails) - 1)

        End Function

只是一个If检查单元格是否为空。