Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Укладка длинного столбца с данными в таблицу, состоящую из 21 строки.
 
#1
19.04.2019 15:48:26
Здравствуйте друзья.
У меня вопрос.

На листе - длинный столбец с данными (столбец F).
Как этот столбец уложить в таблицу, которая ограничена по верху строкой 4, а по низу ограничена строкой 26 ?

Начало заполнение - начинается с адреса, который записан в ячейке R2.
Как примерно выглядит эта укладка столбца - обрисовал в приложенном файле.
 
 
 
#2
19.04.2019 16:05:59
Обязательно макросом?
Вот недавно было похожее
 
 
 
#3
19.04.2019 16:08:19
bigorq, да - нужно именно макросом.
То есть чтобы было однократное срабатывание.
 
 
 
#4
19.04.2019 16:36:46
Приложил файл с макросом.
На всякий случай код:
Код
Sub test()

NameBook = ActiveWorkbook.Name
NameSheet = ActiveSheet.Name
LastCells = Workbooks(NameBook).Worksheets(NameSheet).Cells(Rows.Count, 6).End(xlUp).Row
y = 17

For x = 7 To LastCells Step 21
    Range(Cells(x, 6), Cells(x + 20, 6)).Copy
    Worksheets(NameSheet).Cells(5, y).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    y = y + 1
Next
    
End Sub
 
 
 
#5
19.04.2019 16:52:29
Код
Sub test()
      lr = 17
      For i = 28 To Cells(Rows.Count, 6).End(xlUp).Row Step 21
          If Cells(i, "F") <> " " Then
             Range(Cells(i, 6), Cells(i + 21, 6)).Copy Cells(5, lr)
             lr = lr + 1
          End If
      Next
End Sub
 
 
 
#6
19.04.2019 16:52:46
Ametist69, понятно.

А где связь с ячейкой R2 (в которой написан -  адрес с которого нужно начинать считывание данных из столбца F) ?
 
 
 
#7
19.04.2019 16:56:27
А обязательно связать с ней?
Если обязательно пропишите ещё одну переменную, которая будет вытаскивать номер ячейки.

Просто вы сюда обращаетесь только за готовым решением? Или готовы сами подумать?
 
 
 
#8
19.04.2019 17:37:17
Ametist69,а как прописать эту переменную и куда ее добавить ?

Вот у вас в макросе стоит ( For i = 28 ) - это адрес ячейки, как я понимаю - или что-то другое.
Как его сюда добавить ?
 
 
 
#9
25.04.2019 15:15:55
Если в ячейке R2 просто будет номер ячейки с которой нужно начинать, например: 28 и он будет периодически меняться. То нужно заменить i = 28  на i = Cells(2, "R")
 
 
 
#10
25.04.2019 16:01:12
Андрей_26, ясно.
Спасибо.
 
 
 
Страницы: 1
Наверх