Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Преобразование таблицы в один столбец
 
#1
03.01.2010 21:58:23
Есть табличка из 31 столбца и 290 строк. Не подскажете как преобразовать эту таблицу, что бы получился один столбец, тоесть сначало идут значения первого столбца, потом второго и т.д. Пробовал ручками, но таких подобных таблиц много, на это уйдет куча времени(( <BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]
 
 
 
#2
03.01.2010 22:03:08
Можно конечно и формулами, но это будет извращение :-)  
Макрос нужен.
 
 
 
#3
03.01.2010 22:16:18
horde, почему бы Вам не заглянуть в Правила. И зачем столько строк и столбцов в примере? Достаточно было для решения 2-3 столбца и 2-3 строки: если делать макросом, то неважно, сколько строк и столбцов будет на листе. Главное - как они расположены.
 
 
 
#4
03.01.2010 23:15:29
Вот такой макрос должен Вам помочь:  
Sub horde()    
Dim LastRow As Long  
Dim iLastRow As Long  
Dim LastColumn As Long  
LastRow = Cells(Rows.Count, 1).End(xlUp).Row  
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column  
  For i = 2 To LastColumn  
     iLastRow = Cells(Rows.Count, i).End(xlUp).Row  
     Range(Cells(1, i), Cells(iLastRow, i)).Cut Cells(LastRow + 1, 1)  
     LastRow = Cells(Rows.Count, 1).End(xlUp).Row  
  Next  
End Sub
 
 
 
#5
08.01.2010 02:01:14
Огромное спасибо.
 
 
 
#6
15.05.2011 18:54:40
Огромное спасибо! (:  
Очень помогли! ))
 
 
 
Страницы: 1
Читают тему
Loading...