powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение
5 сообщений из 5, страница 1 из 1
Объединение
    #33541963
Guell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите, плиз.
Есть 3 файла xls. В каждом 2 столбца: названиие, сумма. Пример:
1) а 100 2) а 50 3) а 50
б 200 в 20 б 20
в 50 д 30 д 50
г 50 г 20
е 40
Нужно объединить все три, и чтобы у повторяющихся суммировался результат.
Спасибо зарание, уважаемые
...
Рейтинг: 0 / 0
Объединение
    #33542106
Guell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Извините, за поспешность

Есть 3 файла xls. В каждом 2 столбца: название, численное значение. Пример:
а-5, б-4, в-12, г-5, д-3
а-9, б-1, д-5, е-7
а-1, е-3, г-5, ж-16

Нужно объединить все три файла, и чтобы у повторяющихся суммировался результат.
Спасибо заранее, уважаемые
...
Рейтинг: 0 / 0
Объединение
    #33542159
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Склеиваешь через Ctrl+C, Ctrl+V все три диапазона, получишь один длинный список с повторениями. Потом делаешь по длинному списку сводную таблицу.
...
Рейтинг: 0 / 0
Объединение
    #33542887
Guell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
White Owl, СПАСИБО. Но, это пример я привел. На самом деле значений очень много в каждом файле и надо каждый день такое действие производить. Руками перетаскивать замучиешься. Думаю без кода не обойтись. У самого не получается,- знаний мало. А времени нет. Помогите, плиз
...
Рейтинг: 0 / 0
Объединение
    #33544630
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сделай книгу в которой будут два листа, с именами CombinedRanges и Pivot. Наполняешь CombinedRanges вручную один раз. На листе Pivot делаешь сводную таблицу на основе колонок из CombinedRanges. Кладешь в эту же книгу макрос с примерно таким кодом:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
dim r as Range
ThisWorkbook.Worksheets("CombinedRanges").UsedRange.Clear
set r = ThisWorkbook.Worksheets("CombinedRanges").Range("A1")

Workbooks.Open("firstbook")
ActiveSheet.UsedRange.Copy Destination:=r
ActiveWorkbook.Close SaveCahnges:=false

set r = ThisWorkbook.Worksheets("CombinedRanges").Range("A1").End(xlDown).Offset( 1 , 0 )
Workbooks.Open("secondbook")
ActiveSheet.UsedRange.Copy Destination:=r
ActiveWorkbook.Close SaveCahnges:=false

set r = ThisWorkbook.Worksheets("CombinedRanges").Range("A1").End(xlDown).Offset( 1 , 0 )
Workbooks.Open("thirdbook")
ActiveSheet.UsedRange.Copy Destination:=r
ActiveWorkbook.Close SaveCahnges:=false

ThisWorkbook.Worksheets("Pivot").PivotTables( 1 ).RefreshTable
не проверял, так что может глючить. Бери напильник в руки и вперед.

Потом делаешь себе кнопку, подцепляешь ее к этому макросу и наслаждаешься.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]