Здравствуйте, прошу подсказать как можно сцепить ячейки до последней заполненной строки.
У меня есть код, но на большом количестве ячеек он работает долго, можно ли сцеплять ячейки быстрее?
У меня есть код, но на большом количестве ячеек он работает долго, можно ли сцеплять ячейки быстрее?
Код |
---|
Sub сцепить() Application.ScreenUpdating = False For a = 2 To Cells(Rows.Count, 3).End(xlUp).Row a2 = Cells(Rows.Count, 8).End(xlUp).Row + 1 Cells(a2, 8) = (Cells(a, 3) & Cells(a, 4) & Cells(a, 5) & Cells(a, 6)) Next Application.ScreenUpdating = True End Sub |