Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Объединение данных из разных ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение данных из разных ячеек (Макросы/Sub)
Объединение данных из разных ячеек
Espada Дата: Вторник, 06.12.2022, 16:33 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Доброго дня, помогите, пожалуйста с одной штукой... есть макрос, который копирует данные из одного файла в другой.
[vba]
Код

Workbooks.Open ("\\server2014\Справочник цен\Справочник цен.xlsm")
Workbooks(b).Sheets("Прайс").Range("B1:G5000").Value = Workbooks("Справочник цен.xlsm").Sheets("Прайс").Range("B3:G5000").Value
[/vba]
заполняются столбцы от B до G. А как ещё доработать этот код, что бы в столбце A были данные из столбца B и столбца G?
пример: B = Краска, G = 123, A = Краска - 123.
 
Ответить
СообщениеДоброго дня, помогите, пожалуйста с одной штукой... есть макрос, который копирует данные из одного файла в другой.
[vba]
Код

Workbooks.Open ("\\server2014\Справочник цен\Справочник цен.xlsm")
Workbooks(b).Sheets("Прайс").Range("B1:G5000").Value = Workbooks("Справочник цен.xlsm").Sheets("Прайс").Range("B3:G5000").Value
[/vba]
заполняются столбцы от B до G. А как ещё доработать этот код, что бы в столбце A были данные из столбца B и столбца G?
пример: B = Краска, G = 123, A = Краска - 123.

Автор - Espada
Дата добавления - 06.12.2022 в 16:33
_Boroda_ Дата: Вторник, 06.12.2022, 16:55 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вариантов несколько. Например, так
[vba]
Код
    With Range("A1:A5000")
        .FormulaR1C1 = "=RC[1]&""-""&RC[6]"
        .Value = .Value
    End With
[/vba]
Только обратите внимание, что в книге b у Вас диапазон 1:5000, а в справочнике 3:5000


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВариантов несколько. Например, так
[vba]
Код
    With Range("A1:A5000")
        .FormulaR1C1 = "=RC[1]&""-""&RC[6]"
        .Value = .Value
    End With
[/vba]
Только обратите внимание, что в книге b у Вас диапазон 1:5000, а в справочнике 3:5000

Автор - _Boroda_
Дата добавления - 06.12.2022 в 16:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Объединение данных из разных ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!