Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос данных из таблицы в один столбец
 
#1
31.07.2018 16:44:55
Добрый день.
Возможно ли в Excel не вручную перенести данные из таблицы, состоящей из большого числа столбцов, в один столбец, при этом:
  1. сохранить порядок строк как в столбцах таблицы;
  2. сохранить форматирование;
  3. удалить получившиеся пустые строки;
  4. над теми ячейками, которые были первой строкой в таблице, добавлять одну пустую строку.
В прикрепленном примере Лист1 - исходная таблица, Лист2 - то, что нужно получить.  
 
 
 
#2
31.07.2018 18:07:01
Цитата
Возможно ли в Excel не вручную перенести данные из таблицы, состоящей из большого числа столбцов, в один столбец
Макрос, запускать при активном листе Лист1, для сравнения с вашим результатом переносит данные в столбец В Лист2
Код
Sub Perenos()
Dim i As Long
Dim j As Long
Dim iLastRow As Long
Dim iLR As Long
Dim iLastColumn As Integer
  iLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
 With Worksheets("Лист2")
  .Columns("B").ClearContents
   For j = 1 To iLastColumn
     iLastRow = Cells(Rows.Count, j).End(xlUp).Row
     For i = iLastRow To 2 Step -1
       If IsEmpty(Cells(i, j)) Then
         Cells(i, j).Delete Shift:=xlUp
       End If
     Next
   Next
   For j = 1 To iLastColumn
     iLastRow = Cells(Rows.Count, j).End(xlUp).Row
     iLR = .Cells(.Rows.Count, "B").End(xlUp).Row + 2
      If iLR = 3 Then iLR = 1
        Range(Cells(1, j), Cells(iLastRow, j)).Copy .Cells(iLR, "B")
   Next
 End With
End Sub
 
 
 
Страницы: 1
Наверх