мне нужна помощь в поиске макроса, который может объединять ячейки по строкам в столбце, если эти же строки уже объединены в другом столбце. Ниже приведен скриншот того, что у меня есть сейчас, который показывает ячейки, которые объединены в столбце A.
ниже скриншот-это то, что мне нужно, чтобы электронная таблица выглядела после запуска макроса; соответствующие ячейки в столбце B объединяются.
3221
Это было самое короткое, что я мог сделать. Я попробовал это с вашим примером, и это сработало для меня.
KompSub mergecolumn()
Dim cnt As Integer
Dim rng As Range
Dim str As String
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
cnt = Cells(i, 1).MergeArea.Count
Set rng = Range(Cells(i, 2), Cells(i - cnt + 1, 2))
For Each cl In rng
If Not IsEmpty(cl) Then str = str + vbNewLine + cl
Next
If str <> "" Then str = Right(str, Len(str) - 2)
Application.DisplayAlerts = False
rng.Merge
rng = str
Application.DisplayAlerts = True
str = ""
i = i - cnt + 1
Next i
End Sub
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
