Если склеивать построчно операторами цикла "For.. next i",
очень долго отрабатывает при большом количестве строк.
For i = 0 To x 'x — число строк
Set ran = Worksheets("Sheet1").Range("A1")
Set ran2 = Worksheets("Sheet1").Range("С1") '
ran2.Offset(i, 0) = ran.Offset(i, 0) & ran.Offset(i, 1)
Next i
таким образом если в ячейке "A1" находится текст "привет лунатикам!",
а в "B1" — "они среди нас", то в "C1" будет "привет лунатикам!они среди нас".
тоже и для других строк в диапазоне "A1":"Ax" цикл отталкиваясь от начальных ячеек
будет спускаться вниз.
НО!
Очень долго. Нужен способ оптимизировать решение. Range(range,range)
дает диапазон пусть один ("A1":"Ax"), другой ("B1":"Bx"). А надо тоже самое, как
выше привет лунатикам!они среди нас".
