Страницы: 1
RSS
Перенос данных из строк в столбец
 
Всем привет!
Помогите из строк сформировать столбец.
Спасибо!!!!
 
Привет.
=ИНДЕКС($A$2:$I$4;ОКРВВЕРХ((СТРОКА()-1)/9;1);ОСТАТ(СТРОКА()-2;9)+1)
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
Максим В. , спасибо!!!! все работает)))
 
Код
Sub Perenos()
Dim i As Long
Dim iLastRow As Long
Dim iLR As Long
 iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
  iLR = Cells(Rows.Count, "M").End(xlUp).Row + 1
    Range("M2:M" & iLR).ClearContents
  For i = 2 To iLastRow
      iLR = Cells(Rows.Count, "M").End(xlUp).Row + 1
    Range(Cells(i, "A"), Cells(i, "I")).Copy
    Cells(iLR, "M").PasteSpecial Transpose:=True
  Next
  Application.CutCopyMode = False
End Sub
 
Переосить из строк в столбец можно по-разному в разных задачах. В чем отличие этого вопроса? Предложите название темы. Заменят модераторы
Страницы: 1
Наверх