查找一列中格式为合并的单元格并将其复制到与其同行不同列的单元格中
A B C中国 中国
德国
美国 美国
日本
如上边，中国和美国为合并的单元格，如何能自动将C列中格式为合并的单元格中国和美国自动填充到A列中。 --------------------编程问答--------------------
Sub PickMerge()
Dim TotalRow As Long, CurRow As Long
TotalRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For CurRow = 1 To TotalRow
If Range(Cells(CurRow, 3), Cells(CurRow, 3)).MergeCells Then
Cells(CurRow, 1) = Range(Cells(CurRow, 3), Cells(CurRow, 3)).MergeArea.Value
End If
Next CurRow
End Sub
补充：VB , VBA
