使用VBA时，我需要在工作表中标识多个合并字段，然后将公式应用到每个合并字段的左侧

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cell As Range
    Dim mergeRange As Range
    
    ' 检查选择的区域是否包含合并单元格
    If Target.MergeCells Then
        ' 获取合并单元格的范围
        Set mergeRange = Target.MergeArea
        
        ' 遍历合并单元格的每个单元格
        For Each cell In mergeRange.Cells
            ' 在每个合并单元格的左侧插入标识
            cell.Offset(0, -1).Value = "标识"
        Next cell
    End If
End Sub