Соединение 2-х ячеек - вся строка - Мир MS Excel

Регистрация

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

= Мир MS Excel/Соединение 2-х ячеек - вся строка - Мир MS Excel

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

Соединение 2-х ячеек - вся строка (Формулы/Formulas)

Соединение 2-х ячеек - вся строка

Дата: Воскресенье, 29.03.2015, 14:10 | Сообщение № 1

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

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

Сообщений: 12

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

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

Excel 2010

Здравствуйте.
Хочу создать макрос и вывести ярлычек для быстрой обработки N'ого объема информации однообразного типа.

На фото указана пошаговые нужды трансформации данных.

1. Необходимо заменить "перенос на новую строку" - пробелом

вот нашла макрос как это сделать
[vba]
Код
Sub ReplaceNextLine()
Selection.Replace What:=Chr(10), Replacement:=" "
End Sub
[/vba]
Но нужно довести до ума все остальное

2. Сделать тоже самое на протяжении всего столбца!
Как это прописать?
---
3. Далее нужно соединить ячейки A1 + B1 и все это занести в С1.
(между ячейками пробел)
3.1 И так по аналогии до конца всего столбца.

Ps можно по третьему пункту расписать по детально как это взаимосвязь будет работать на указанием пальца в отдельный кусочек кода!
Именно что потребуется - соеденять ячейку A1 + B1 + C1 все это в D1 но между ними нужен будет "/"
Что бы уже потом все самой делать...
Нужно делать несколько макросов или в 1 все войдет?

Буду благодарна за помощь !

К сообщению приложен файл: 1_1.xls (17.0 Kb)

Text style

Ответить

Дата: Воскресенье, 29.03.2015, 14:18 | Сообщение № 2

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

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

Сообщений: 19518

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Формулы не предлагать?
Например, для С1

Код

=A1&" "&ПОДСТАВИТЬ(B1;СИМВОЛ(10);" ")

К сообщению приложен файл: 4722899.xls (26.0 Kb)

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

Ответить

Дата: Воскресенье, 29.03.2015, 14:44 | Сообщение № 3

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

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

Сообщений: 1347

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

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

Excel 2010

Или простейшим макросом.

К сообщению приложен файл: 1_2.xls (39.5 Kb)

Ответить

Дата: Воскресенье, 29.03.2015, 15:00 | Сообщение № 4

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

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

Сообщений: 12

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

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

Excel 2010

Цитата Pelena, 29.03.2015 в 14:18, в сообщении № 2

апример, для С1

Ну почему же, можно и формулами. Но макросами это deal

deal

deal

deal

Я пользуюсь LibreOffice (бесплатный редактор таблиц)
Там почему то эта формула не работает.. =\
Тем более если протянуть то она же не будет протягивать A1 до А32 а на всем протяжении столбца будет А1 и Б1 вместо нужных А2^3456789

--

Text style

Ответить

Дата: Воскресенье, 29.03.2015, 15:03 | Сообщение № 5

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

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

Сообщений: 19518

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

Замечаний: ±

Excel 365 & Mac Excel

Цитата Salica, 29.03.2015 в 15:00, в сообщении № 4

она же не будет протягивать A1 до А32 а на всем протяжении столбца будет А1 и Б1

Почему это??

Цитата Salica, 29.03.2015 в 15:00, в сообщении № 4

Я пользуюсь LibreOffice

А вот об этом надо сразу предупреждать. Я не знаю, что такое LibreOffice. Если надо формулу перевести на английский, нажмите кнопку с флагом слева от формулы в сообщении

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

Ответить

Дата: Воскресенье, 29.03.2015, 15:07 | Сообщение № 6

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

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

Сообщений: 12

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

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

Excel 2010

Цитата ShAM, 29.03.2015 в 14:44, в сообщении № 3

Или простейшим макросом.
К сообщению приложен файл: 1_2.xls(40Kb)

clap

pray

pray

pray

yahoo

first

Вам спасибо - Спасибо - СПАС ибо вы мастер!
Можете пожалуйста скинуть в лс внутренности кнопки "жми"

У меня почему то с макросамми проблема просит "JRE" просит установить java - все делаю, устанавливаю, но ошибка не проподает...
Не хочу качать майкрософт тяжелый... и не факт что решит проблему, но походу придется.

Text style

Ответить

Дата: Воскресенье, 29.03.2015, 15:10 | Сообщение № 7

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

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

Сообщений: 1347

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

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

Excel 2010

Зачем в лс (все равно прочитать не сможете), можно и сюда.
[vba]

Код

Sub un()
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row 'ищем последнюю заполненную строку в столбце 1 (А)
For i = 1 To iLastRow 'цикл с 1-го по последнюю заполненную строки
Cells(i, 3) = Cells(i, 1) & " " & Replace(Cells(i, 2), Chr(10), " ") 'в ячейку Сi (i-я строка 3 столбец)объединяем ячейку Аi (через пробел) и Вi, заменив перенос строки (Chr(10)) на пробел
Next 'конец цикла
End Sub

[/vba]

Ответить

Дата: Воскресенье, 29.03.2015, 15:12 | Сообщение № 8

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

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

Сообщений: 12

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

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

Excel 2010

Цитата Pelena, 29.03.2015 в 15:03, в сообщении № 5

Почему это??

Оk'и проверю уже на майкрософтине ехел.

--------------

Соединяем ячейку A1 + B1 + C1 все это в D1 но между ними нужен будет "/"

Работает вот это - [vba]

Код

=A3&" "&$B$3

[/vba]
Но когда протягиваешь ПОЧЕМУ ТО во всех последующих ячейках одно и тоже вместо того B3³⁴⁵⁶⁷⁸&
Везде B3..

Text style

Сообщение отредактировал Salica - Воскресенье, 29.03.2015, 15:37

Ответить

Дата: Воскресенье, 29.03.2015, 15:33 | Сообщение № 9

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

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

Сообщений: 12

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

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

Excel 2010

Цитата ShAM, 29.03.2015 в 15:10, в сообщении № 7

Зачем в лс (все равно прочитать не сможете), можно и сюда.

Решилa JRE - установила Java 32х разрядов.
Как открыть внутренности кнопки?
ПКМ - "Установить макросы" не работает. Вообще не могу найти где этот макрос прописан для кнопки О_о

Цитата Pelena, 29.03.2015 в 14:18, в сообщении № 2

=A1&" "&SUBSTITUTE(B1,CHAR(10)," ")

=\ ошибка 501..

Text style

Ответить

Дата: Воскресенье, 29.03.2015, 15:43 | Сообщение № 10

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

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

Сообщений: 1347

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

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

Excel 2010

Цитата Salica, 29.03.2015 в 15:33, в сообщении № 9

Вообще не могу найти где этот макрос прописан для кнопки

Жмите Alt/F11 (это для excel, для LibreOffice не знаю).

Цитата Salica, 29.03.2015 в 15:33, в сообщении № 9

ошибка 501

Может, нужно формулу на русский перевести, кнопка с флагом слева от формулы.

Ответить

Дата: Воскресенье, 29.03.2015, 15:46 | Сообщение № 11

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

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

Сообщений: 1347

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

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

Excel 2010

Цитата Salica, 29.03.2015 в 15:12, в сообщении № 8

Но когда протягиваешь ПОЧЕМУ ТО во всех последующих ячейках одно и тоже вместо того B3345678&
Везде B3..

Уберите знак доллара:

Код

=A3&" "&$B3

Ответить

Дата: Воскресенье, 29.03.2015, 16:19 | Сообщение № 12

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

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

Сообщений: 12

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

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

Excel 2010

Цитата ShAM, 29.03.2015 в 15:46, в сообщении № 11

=A3&" "&$B3

А как туда добавить еще С3?
=A1&" "&B1&" "&C1 - нужны "/" между ячейками

Text style

Сообщение отредактировал Salica - Воскресенье, 29.03.2015, 16:29

Ответить

Дата: Воскресенье, 29.03.2015, 16:24 | Сообщение № 13

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

кавычки забыли

Код

=A3&"/"&B3&"/"&C3

или CONCATENATE(A1;"/";B1;"/";C1)

Сообщение отредактировал buchlotnik - Воскресенье, 29.03.2015, 16:34

Ответить

Дата: Воскресенье, 29.03.2015, 17:24 | Сообщение № 14

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

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

Сообщений: 12

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

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

Excel 2010

Цитата buchlotnik, 29.03.2015 в 16:24, в сообщении № 13

кавычки забыли

=A3&"/"&B3&"/"&C3
или CONCATENATE(A1;"/";B1;"/";C1)

Спасибо, все сделано работает, все что нужно - подсказали!
ВСЕМ СПАСИБО - БОЛЬШОГО и ВСЕГО ДОБРОГО ALL IN

Text style

Ответить

Дата: Воскресенье, 29.03.2015, 18:09 | Сообщение № 15

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

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

Сообщений: 12

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

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

Excel 2010

Все таки еще неразрешенный моментик!
Как отделить верхнюю часть ячейки от
"С новой строки"
Нижней части.
Нижнюю нужно переместить рядом в соседнюю ячейку - по строке.
Как на фото.
Спасибо ^^

Text style

Ответить

Дата: Воскресенье, 29.03.2015, 20:47 | Сообщение № 16

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

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

Сообщений: 12

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

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

Excel 2010

Но не во всей строке будут такие выражения с "новой строкой".
То есть будут попадаться обычные ячейки с 1 словом.

Text style

Ответить

Дата: Воскресенье, 29.03.2015, 21:18 | Сообщение № 17

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

так?

Код

=ЕСЛИ(ЕОШИБКА(ПОИСК(СИМВОЛ(10);B1));B1;ЛЕВСИМВ(B1;ПОИСК(СИМВОЛ(10);B1)-1))

К сообщению приложен файл: 3112342.xls (25.0 Kb)

Сообщение отредактировал buchlotnik - Воскресенье, 29.03.2015, 21:55

Ответить

Дата: Воскресенье, 29.03.2015, 21:47 | Сообщение № 18

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

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

Сообщений: 12

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

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

Excel 2010

Цитата buchlotnik, 29.03.2015 в 21:18, в сообщении № 17

так?
К сообщению приложен файл: 3112342.xls(25Kb)

УЕее именно!
Спасибо Вам - всех благ.

Text style

Ответить

Соединение 2-х ячеек - вся строка (Формулы/Formulas)

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

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