Скопировать несколько столбцов в один по порядку - VBA
Формулировка задачи:
Здравствуйте! Подскажите, пожалуйста, как сделать следующую вещь. Имеется произвольное число столбцов с произвольным количество строк. Необходимо, чтобы справа налево, все столбцы были сформированы в один большой столбец, в котором сначала используются все строки из первого столбца, затем из второго и т.д.
Например, имеются данные следующего вида:
1 5 a
2 6 b
3 7 c
4 8 d
Необходимо получить из этих трех столбцов один, который будет включать следующие элементы:
1
2
3
4
5
6
7
8
a
b
c
d
Напишите, пожалуйста, как это сделать. В excel разбираюсь довольно слабо, поэтому буду очень благодарен за подробные разъяснения.
Решение задачи: «Скопировать несколько столбцов в один по порядку»
textual
Листинг программы
Sub ReCreateList() n = 1 For c = 1 To 3 'Change Selection Cells(1, c).Select For r = 1 To Range(Selection, Selection.End(xlDown)).Count Cells(n, 4) = Cells(r, c) n = n + 1 Next r Next c End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д