Excel·VBA单元格相同，欄位内容合并

Excel VBA 中，如果你想将两个或更多同名单元格的内容合并到一个单元格，可以使用 `Range` 对象的 `Merge` 属性和 `Value` 属性。下面是一个简单的例子：

Sub MergeCells()
    ' 定义源单元格范围，例如 A1 到 B2
    Dim sourceRange As Range
    Set sourceRange = Range("A1:B2")
    
    ' 检查是否所有单元格都有值，如果有空单元格则会出错
    If Not sourceRange Is Nothing And Application.WorksheetFunction.CountIf(sourceRange, "") = 0 Then
        ' 合并单元格
        sourceRange.Merge
        
        ' 将最后一个单元格的值赋给它，实际上是覆盖其他所有单元格的内容
        sourceRange.Value = sourceRange.Cells(sourceRange.Rows.Count, sourceRange.Columns.Count).Value
    End If
    
    ' 移除隐藏的合并边框
    sourceRange.Interior.ColorIndex = xlNone
End Sub

在这个脚本中，我们首先创建了一个 `Range` 对象 `sourceRange`，然后检查这个范围内的所有单元格是否有值。如果有，就合并它们，并将最后合并后的单元格内容复制回自身。