Скопировать несколько столбцов в один по порядку - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.667 из 5
Похожие ответы