Здравствуйте. Есть макрос, который собирает данные из книг (точнее из одной ячейки) и вставляет их в столбец А поочередно вниз(спасибо пользователю nilem за данный макрос)
Все работает прекрасно, но нужно чтобы в соседний столбец "В" вставлялось имя книги, откуда берутся данные Прикрепляю также файл
Здравствуйте. Есть макрос, который собирает данные из книг (точнее из одной ячейки) и вставляет их в столбец А поочередно вниз(спасибо пользователю nilem за данный макрос)
Все работает прекрасно, но нужно чтобы в соседний столбец "В" вставлялось имя книги, откуда берутся данные Прикрепляю также файлsaf
Sub ertert() Dim f As String, rw As Long, Pth As String Pth = ThisWorkbook.Path & "\[": rw = 2 f = Dir(ThisWorkbook.Path & "\" & "*.xls*", vbNormal) Do While f <> "" If f <> ThisWorkbook.Name Then Cells(rw, 1).Formula = "='" & Pth & f & "]Лист0'!P2" Cells(rw, 2).Value = f rw = rw + 1 End If f = Dir() Loop With ActiveSheet.Cells(1, 1).Resize(rw) .Value = .Value End With End Sub
[/vba]
[vba]
Код
Sub ertert() Dim f As String, rw As Long, Pth As String Pth = ThisWorkbook.Path & "\[": rw = 2 f = Dir(ThisWorkbook.Path & "\" & "*.xls*", vbNormal) Do While f <> "" If f <> ThisWorkbook.Name Then Cells(rw, 1).Formula = "='" & Pth & f & "]Лист0'!P2" Cells(rw, 2).Value = f rw = rw + 1 End If f = Dir() Loop With ActiveSheet.Cells(1, 1).Resize(rw) .Value = .Value End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
