![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Регистрация: 03.04.2013
Сообщений: 3
|
![]()
Помогите дописАть макрос. Имеем: Разное количество файлов с одинаковой структурой и один файл "Свод". Необходимо из файла 1.1 и.т.д в зависимости от двух условий (строка которая с городами) и столбца (код) скопировать значение и прибавить его в ячейку которая также совпадёт с кодом и название города в файле "Свод". Сложности с суммированием значений в зависимости от двух условий в файл "Свод".
Код HTML:
Sub Обработка() Dim MyName, MyPath As String Dim wbX As Workbook MyPath = "S:\Письма\" 'исходная папка для обработки файлов MyName = Dir(MyPath & "*.xlsx") Do While MyName <> "" sPath = MyPath + MyName Excel.Application.Workbooks.Open sPath MyName = Dir Loop For Each wbX In ActiveWorkbooks ' здесь копирование значения ячейки I9 и в зависимости от I8 и B9 в файл "Свод" - вставка. Далее с ячейкой J9 и так до O9. ' затем переход на строку 10 и всё то же самое. ' обрабатывать до тех пор пока следующая строка пустая, далее: Range("A9") = "Обработан" ActiveWorkbook.Close Savechanges:=True Next wbX End Sub |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Cуммирование значений из нескольких файлов в один в зависимости от двух условий | Akimich_ | Помощь студентам | 0 | 03.04.2013 16:52 |
Сбор данных из нескольких листов на один с удалением дубликатов, но суммированием значений | strannick | Microsoft Office Excel | 4 | 10.04.2012 19:18 |
Макрос для копирования значений из нескольких файлов в один общий с определенным условием копирования | zenner | Microsoft Office Excel | 0 | 21.03.2011 14:48 |
Сборка нескольких файлов в один | Gamst | Помощь студентам | 4 | 02.06.2010 20:19 |
Свод нескольких файлов Excel в один | Стасон | Microsoft Office Excel | 2 | 24.02.2009 11:13 |