Автоматическое создание таблицы

@eversor · Регистрация: 27.11.2012

Author24 — интернет-сервис помощи студентам

Нужна помощь в создании макроса.

Есть таблица, приведена на рисунке 1.
По нажатию клавиши нужно расширить её до вида на рисунке 2.

Т.е. просто одинаковые блоки добавляются вниз, количество таких блоков каждый раз меняется. Вручную надоело добивать, хочется автоматом.

Есть похожие примеры? Буду благодарен.

@Michael99 · 18.04.2016, 14:58

первый блок в диапазоне A1:T6

Visual Basic

Sub afds()
 
Dim i, j&, ilastrow&, nubmer&
 
i = InputBox("Введите целое число от 1 до 100", "Введите кол-во добавляемых блоков")
 
If i >= 1 And i <= 100 Then
 
    For j = 1 To i
    
    ilastrow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    
    nubmer = Cells(Rows.Count, 1).End(xlUp).Value + 1
    
    Range("a1:t6").Copy Destination:=Cells(ilastrow, 1)
    
    
    Range("a" & ilastrow) = nubmer
    
    Next
    
Else
MsgBox ("Ошибка! Работа макроса прекращена")
End If
 
End Sub

@eversor 0 / 0 / 0 Регистрация: 27.11.2012 Сообщений: 12
		1
	Автоматическое создание таблицы 18.04.2016, 06:10. Показов 1520. Ответов 1 Метки нет (Все метки) Нужна помощь в создании макроса. Есть таблица, приведена на рисунке 1. По нажатию клавиши нужно расширить её до вида на рисунке 2. Т.е. просто одинаковые блоки добавляются вниз, количество таких блоков каждый раз меняется. Вручную надоело добивать, хочется автоматом. Есть похожие примеры? Буду благодарен. Миниатюры 0

	18.04.2016, 14:58