Свод данных из разных файлов в один - Microsoft Office Excel

Klaust · 31.12.2020, 21:26

Всем привет и с наступающим! Есть макрос (делал не сам) который сводит данные таблиц, находящиеся в разных файлах, в один тоже отдельный файл. Проблема в том что он понимает только цифры, если в ячейке символ или слово сразу выдает ошибку.
Помогите его дополнить, что бы он воспринимал еще слова и символы.
Буду благодарен.

Aleksandr H. · 31.12.2020, 23:03

Вы бы написали на какой строке валится макрос.
Сейчас макрос суммирует данные с ячеек, а как хотите чтобы он воспринимал слова и символы, что в результате получите?

Klaust · 31.12.2020, 23:20

В моем случае этот макрос "переносит" цифры из разных таблиц в одну, а бывает что вместо цифры там слово. На нём все и слетает.

Скрин скинул.

Aleksandr H. · 02.01.2021, 13:39

Код:

                                      If IsNumeric(.Cells(iRow, iCol).Value) Then
                                        BazaSht.Cells(iRow, iCol).Value = BazaSht.Cells(iRow, iCol).Value + .Cells(iRow, iCol).Value
                                      End If

Klaust · 07.01.2021, 18:03

Спасибо.
А что конкретно в макросе заменить, только выделенную строчку? попробовал все вообще сломал. Можете приложить измененный exсel файл

31.12.2020, 23:03	#2
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	Вы бы написали на какой строке валится макрос. Сейчас макрос суммирует данные с ячеек, а как хотите чтобы он воспринимал слова и символы, что в результате получите? Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

02.01.2021, 13:39	#4
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	Код: `If IsNumeric(.Cells(iRow, iCol).Value) Then BazaSht.Cells(iRow, iCol).Value = BazaSht.Cells(iRow, iCol).Value + .Cells(iRow, iCol).Value End If` Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Свод нескольких файлов в один	TVkills	Microsoft Office Excel	11	01.03.2019 17:58
Свод нескольких файлов Excel в один	Ирина3434	Помощь студентам	0	27.09.2017 10:42
Свод нескольких файлов Excel в один 2	AnnaVild	Microsoft Office Excel	12	25.11.2016 13:03
Свод нескольких файлов Excel в один	kazakh222	Microsoft Office Excel	6	20.09.2015 09:37
Объединение данных из разных файлов на один лист	Комо	Microsoft Office Excel	11	22.06.2010 21:26

07.01.2021, 18:03	#5
Klaust Пользователь Регистрация: 08.11.2017 Сообщений: 16	Спасибо. А что конкретно в макросе заменить, только выделенную строчку? попробовал все вообще сломал. Можете приложить измененный exсel файл