如何用VBA获取Excel第一行所有非空值并循环弹窗展示

你原来的代码oBook.Sheets("Sheet1").Rows(1).End(xlDown).column存在逻辑错误：End(xlDown)是从第一行向下查找最后一个非空单元格的行，而非列，无法定位第一行的非空列范围。以下是正确的VBA实现方案：

方案1：逐个显示每个非空值 #

Sub ShowFirstRowNonEmptyValues()
    Dim targetSheet As Worksheet
    Dim lastUsedCol As Long
    Dim colIndex As Long
    Dim cellContent As Variant
    
    ' 指定目标工作表
    Set targetSheet = oBook.Sheets("Sheet1")
    
    ' 获取第一行最后一个非空列的列号（从最右侧向左查找）
    lastUsedCol = targetSheet.Rows(1).Cells(targetSheet.Columns.Count).End(xlToLeft).Column
    
    ' 遍历第一行所有列
    For colIndex = 1 To lastUsedCol
        cellContent = targetSheet.Cells(1, colIndex).Value
        ' 仅处理非空单元格
        If Not IsEmpty(cellContent) Then
            MsgBox "第一行第" & colIndex & "列值：" & cellContent
        End If
    Next colIndex
End Sub

方案2：所有非空值汇总显示 #

如果希望把所有非空值放在一个弹窗里展示，可使用字符串拼接：

Sub ShowFirstRowNonEmptyValuesCombined()
    Dim targetSheet As Worksheet
    Dim lastUsedCol As Long
    Dim colIndex As Long
    Dim resultText As String
    
    Set targetSheet = oBook.Sheets("Sheet1")
    lastUsedCol = targetSheet.Rows(1).Cells(targetSheet.Columns.Count).End(xlToLeft).Column
    resultText = "第一行非空值列表：" & vbCrLf
    
    For colIndex = 1 To lastUsedCol
        If Not IsEmpty(targetSheet.Cells(1, colIndex).Value) Then
            resultText = resultText & "- 第" & colIndex & "列：" & targetSheet.Cells(1, colIndex).Value & vbCrLf
        End If
    Next colIndex
    
    MsgBox resultText
End Sub

关键说明 #

• targetSheet.Rows(1).Cells(targetSheet.Columns.Count).End(xlToLeft).Column：通过从第一行最右侧单元格向左遍历，精准定位第一行最后一个非空列，避免遗漏或误判范围。
• 使用IsEmpty()判断单元格是否为空，排除空白单元格的干扰。

内容的提问来源于stack exchange，提问作者S.M_Emamian