如图所示,不知道从哪行到哪行是合并单元格,但是想通过宏来判断并组成合并字符串!请教高手帮忙啊。
我这只是举个例子。里面的文字和格式不一定是这样。可能有很多合并的单元格。这个直接去看当然可以了,但是因为要做大量的这样的处理 所以想用宏。
代ç å¦ä¸ï¼
Sub main()
For i = 1 To Range("A1").End(xlDown).Row'åAåæ大è¡æ°ï¼å¹¶ä»1å°æ大è¡æ°å¾ªç¯
If Range("A" & i).MergeCells = True Then'å¦æåå æ ¼ä¸ºå并åå æ ¼
For j = 1 To Range("A" & i).MergeArea.Count'ä»1å°å并åå æ ¼çæ°é循ç¯
Cells(i + j - 1, 3) = Cells(i, 1) & Cells(i + j - 1, 2)'第ä¸åçäºç¬¬ä¸å第ä¸è¡å并ä¸ç¬¬äºå对åºåè¡
Next j
Else'å¦æä¸æ¯å并åå æ ¼
Cells(i, 3) = Cells(i, 1) & Cells(i, 2)'第ä¸åçäºç¬¬ä¸åå并第äºå
End If
Next i
End Sub
详ç»æä½æ¥éª¤å¦ä¸ï¼