Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Переместить столбцы один под другой, начало следующего под конец предыдущего
 
#1
27.10.2017 14:43:56
Всем привет

Возникла потребность сгруппировать идущие последовательно столбцы в один ряд (во вложении) - подскажите как это лучше сделать.

Заранее всем спасибо и удачного дня!
 
 
 
#2
27.10.2017 14:47:37
Должно как быть?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#3
27.10.2017 14:54:32
Код
Sub test()
Dim arr(), iarr(), ikey, i&
With Лист1
    arr = .UsedRange.Value
    ReDim iarr(1 To UBound(arr) * UBound(arr, 2), 1 To 1)
    For Each ikey In arr
        i = i + 1
        iarr(i, 1) = ikey
    Next ikey
    .Cells(1, .Cells(1, .Columns.Count).End(xlToLeft).Column + 1).Resize(UBound(iarr)) = iarr
End With
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#4
27.10.2017 15:03:40
Добрый день.

Как вариант в прикрепленном файле.
 
 
 
#5
27.10.2017 15:25:48
Гаубица, а как это применить к боевому документу? Скриптом, что Nordheim прислал?
Nordheim, благодарю.
 
 
 
#6
27.10.2017 15:31:51
Geineh, Вам решать.
Можете использовать код Nordheim, либо код, который в моём файле:
Код
Sub test()
n = 1
Range("A1").Select
For c = 1 To 8
    For r = 1 To Range(Selection, Selection.End(xlDown)).Count
        Cells(n, 4) = Cells(r, c): n = n + 1
    Next r
Next c
Range("A:C,E:H").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
End Sub
 
 
 
#7
27.10.2017 15:46:59
Гаубица,благодарю
 
 
 
#8
27.10.2017 15:56:38
Гаубица, Совет, постарайтесь не использовать Select и Activate.
Вот тут подробно почему я так советую  :D  
"Все гениальное просто, а все простое гениально!!!"
 
 
 
Страницы: 1
Наверх