Автозаполнение таблицы из листов другой книги

@руслан х · Регистрация: 18.03.2015

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

Есть пустая таблица1 в книге1,в ней есть строчка температура,и 30 столбиков - 30 дней месяца, исходные данные ллежат в книге2 в листах: 01.03-30.03,в одинаковых ячейках (F9. Каким образом можно сделать автозаполнение в таблице 1?куча таблиц куча данных,мало времени ( Спс заранее

@petr-sev · 18.03.2015, 18:22

это только заготовка

Visual Basic

Dim I As Long
Dim SheetN As String
For I = 1 To 30
    If I < 10 Then SheetN = "0"
    SheetN = SheetN & CStr(I) & ".03"
    Workbooks(1).Sheets(1).Cells(1, I) = Workbooks(2).Sheets(SheetN).Cells(9, 6)
Next

@руслан х 0 / 0 / 0 Регистрация: 18.03.2015 Сообщений: 1
		1
	Автозаполнение таблицы из листов другой книги 18.03.2015, 13:18. Показов 1154. Ответов 1 Метки нет (Все метки) Есть пустая таблица1 в книге1,в ней есть строчка температура,и 30 столбиков - 30 дней месяца, исходные данные ллежат в книге2 в листах: 01.03-30.03,в одинаковых ячейках (F9. Каким образом можно сделать автозаполнение в таблице 1?куча таблиц куча данных,мало времени ( Спс заранее 0

	18.03.2015, 18:22