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

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

Нужно объединить все три файла, и чтобы у повторяющихся суммировался результат.
Спасибо заранее, уважаемые
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2006, 22:53:57
    #33542159
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение
Склеиваешь через Ctrl+C, Ctrl+V все три диапазона, получишь один длинный список с повторениями. Потом делаешь по длинному списку сводную таблицу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.02.2006, 11:13:25
    #33542887
Guell
Guell
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение
White Owl, СПАСИБО. Но, это пример я привел. На самом деле значений очень много в каждом файле и надо каждый день такое действие производить. Руками перетаскивать замучиешься. Думаю без кода не обойтись. У самого не получается,- знаний мало. А времени нет. Помогите, плиз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.02.2006, 18:47:47
    #33544630
White Owl
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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 305ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2185250]:
 0ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 55ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 20ms
get tp. blocked users:
 1ms
others: 200ms
total:  305ms
x
x
Закрыть


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