一个使用 VBA 判断合并单元格左边是否为空，如果为空则取第一行数据的

以下是一个使用 VBA 判断合并单元格左边是否为空，如果为空则取第一行数据的示例代码：

Sub GetValueFromMergedCell()
    ' 定义变量
    Dim ws As Worksheet
    Dim mergedRange As Range
    Dim leftCell As Range
    Dim output As String
    
    ' 填充变量
    Set ws = ActiveSheet
    Set mergedRange = ws.Range("A1:C3")
    
    ' 获取左边单元格和输出字符串
    Set leftCell = mergedRange.Cells(1, 1)
    If leftCell.Value = "" Then
        output = mergedRange.Cells(2, 1).Value
    Else
        output = leftCell.Value
    End If
    
    ' 输出结果
    MsgBox output
End Sub

在上面的代码中，我们首先定义了名为 GetValueFromMergedCell 的子方法。该方法将设置一个要判断的工作表和合并单元格范围，并尝试获取左侧单元格的值。如果该值为空，则从第二行获取值。否则，直接使用左侧单元格的值。

注意，我们使用 Set 语句设置变量 ws 和 mergedRange 分别为当前活动工作表和合并单元格 A1:C3。您可以根据需要更改这些参数来选择要检查的合并单元格。

调用这个函数的示例代码如下

Sub Example()
    ' 调用子方法获取合并单元格的值
    GetValueFromMergedCell
End Sub

在上面的代码中，我们只需调用 GetValueFromMergedCell 方法即可在当前活动工作表中检查合并单元格 A1:C3 的左侧单元格，并从第一行或左侧单元格中获取值。