Копирование из нескольких ячеек и вставка в одну - Мир MS Excel

Регистрация

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

= Мир MS Excel/Копирование из нескольких ячеек и вставка в одну - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Копирование из нескольких ячеек и вставка в одну (Макросы/Sub)

Копирование из нескольких ячеек и вставка в одну

Дата: Понедельник, 02.02.2015, 10:11 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Подскажите, можно ли как-то копировать из 6-ти или 3-х ячеек из одного файла, и вставлять в другой файл в одну ячейку?
Еще, желательно, чтобы лишние пробелы убирались. Т.е. заменять два и больше пробела вместе, на один.
Реально ли это реализовать?

К сообщению приложен файл: 0155501.png (11.3 Kb) · Excel_p.xlsx (9.1 Kb)

Сообщение отредактировал FoxPP - Понедельник, 02.02.2015, 10:34

Ответить

Дата: Понедельник, 02.02.2015, 10:34 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

[vba]

Код

Sub test()
     Dim str As String
     str = Cells(1, 1).Value & Cells(1, 2).Value & Cells(1, 3).Value
     Range("A3") = Application.Trim(str)
End Sub

[/vba]

Вот так можно объединить 3 ячейки и удалить лишние пробелы.

К сообщению приложен файл: primer.xlsm (14.6 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

Дата: Понедельник, 02.02.2015, 10:47 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19572

Репутация: 4646 ±

Замечаний: ±

Excel 365 & Mac Excel

Как вариант, можно воспользоваться готовыми решениями
http://www.excelworld.ru/board....-1-0-24
http://www.excelworld.ru/forum/3-25-1

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Дата: Понедельник, 02.02.2015, 13:15 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

А можно как-то через кнопку сделать по выделению или через горячие клавиши?)

Ответить

Дата: Понедельник, 02.02.2015, 21:27 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 40

Репутация: 0 ±

Замечаний: 0% ±

2013

Цитата Pelena, 02.02.2015 в 10:47, в сообщении № 3

Как вариант, можно воспользоваться готовыми решениями
http://www.excelworld.ru/board....-1-0-24
http://www.excelworld.ru/forum/3-25-1

А можно ли эти функции переделать на кнопку? Чтобы при нажатии кнопки или гарячих клавиш, копировались склееные значения в буфер?

Ответить

Дата: Понедельник, 02.02.2015, 22:07 | Сообщение № 6

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Переделать нельзя, использовать в макросе можно

Быть или не быть, вот в чем загвоздка!

Ответить

Дата: Понедельник, 02.02.2015, 22:38 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 40

Репутация: 0 ±

Замечаний: 0% ±

2013

Цитата RAN, 02.02.2015 в 22:07, в сообщении № 6

Переделать нельзя, использовать в макросе можно

Извиняюсь за наглость, а вы не подскажите, как? specool

specool

Ответить

Дата: Понедельник, 02.02.2015, 22:45 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Я нет.
Поищите по форуму копирование в буфер. Недавно пробегало.
и вставляйте туда
[vba]

Код

a = JoinWithoutDuplicates(rng)

[/vba]
или другую приглянувшуюся функцию.

Быть или не быть, вот в чем загвоздка!

Ответить

Копирование из нескольких ячеек и вставка в одну (Макросы/Sub)

Страница 1 из 1
1

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