Как добавить слово в каждую ячейку excel

нужно в каждую ячейку в столбце вставить одно и тоже слово например перед тем значением которое там уже есть
как это сделать быстро когда ячеек в столбце много

Пользователь
Сообщений: 8839 Регистрация: 11.01.2013
26.03.2014 10:58:35
Выделить диапазон, Alt+F11, Ctrl+G, ввести команду ниже, Enter.

selection.value=evaluate("""например ""&" & selection.address)

Пользователь
Сообщений: 2063 Регистрация: 01.01.1970
26.03.2014 12:19:27

можно просто формулой)
для B1

="нужное слово "&A1

B1 скопировать и вставить в А1 как значение

Изменено: Dima S — 26.03.2014 12:19:48
Пользователь
Сообщений: 148 Регистрация: 21.12.2013
26.03.2014 12:56:38

если слово одно и то же для всех ячеек, то $A$1
вместо копи-паст как значение можно преобразовать колонку В:В в значение (например, с помощь функционала надстройки Плекс, будет быстрее ИМХО)

Изменено: googlogmob — 26.03.2014 20:23:39
Пользователь
Сообщений: 11833 Регистрация: 17.01.2014
ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64
26.03.2014 12:59:16

Цитата
googlogmob пишет: если слово одно и то же для всех ячеек, то $A$1

Ошибаетесь. Если протянуть предложенное вами, то во всех ячейках будет:

="нужное слово "&$A$1

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
Пользователь
Сообщений: 148 Регистрация: 21.12.2013
26.03.2014 13:02:24

зафиксировать ячейку с значением и через сцепить применить к колонкам
Извиняюсь, не вник в суть А1 именно этой формулы. Тогда да

Пользователь
Сообщений: 8 Регистрация: 26.11.2017
02.12.2017 13:07:53

Добрый день всем.

Большая таблица, вставлены в ячейке дата рождения, нужно добавить к каждой «г.р.»

С помощью формулы =C2&»г.р.» — получается вот такие результаты

29480г.р.

Где ошибка? Книга1.xlsx (9.18 КБ)

Пользователь
Сообщений: 8839 Регистрация: 11.01.2013
02.12.2017 13:15:06

=ТЕКСТ(C3;"ДД.ММ.ГГГГ \г.р.")

Изменено: Казанский — 02.12.2017 13:17:24
Страницы: 1
Читают тему

Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.

ООО «Планета Эксел»
ИНН 7735603520
ОГРН 1147746834949

ИП Павлов Николай Владимирович
ИНН 633015842586
ОГРНИП 310633031600071

Как быстро дописать в столбике в каждой ячейке EXCEL одно слово

Например в ячейках столбика попорядку записано ВМ544;ВМ677;АК888; и тд а надо чтобы было ВМ544ПА;ВМ677ПА;АК888ПА;
Короче в каждую ячейку дописать определенное одинаковое слово. Может есть метод как зделать это автоматически, а то в столбику 23599 ячеек и каждую отдельно изменять это очень долго.

Лучший ответ

делаешь дополнительный столбец и в него пишешь формулу =сцепить («текст1″;»текст2») в твоем случае, вместо текст 1 нужно использовать яцейку из соответствующей строки данного столбца.
далее полученный столбец нужно скопировать в, к примеру, блокнот, а далее из блокнота скопировать (опять. ) в excel(обратно) . Это для того чтобы не по формуле считалось а как будто так и вводили. Вот и всё.

Остальные ответы
как в Excel добавить фамилии в столбец?

Не нужно прописывать никаких формул! Все просто: 1) выделяем слолбец 2) в строке формул (на самом верху, над ячейками) пишем нужное слово, которое должно оказаться во всех ячейках 3) и дальше жмем не Enter, а Ctrl+Enter! И все, любуемся результатом.

Спасибо, большое
у меня не работает ни один из вариантов

р х написал чушь вообще не разобравшись в задаче. по его методу можно быстро поставить одно и тоже значение в несколько ячеек. но задача вообще не в этом заключалась.

покупка

Как добавить текст в начало или конец всех ячеек в Excel?

Иногда вам может потребоваться добавить один и тот же конкретный текст в начале или в каждую ячейку выделенного фрагмента. Делать это вручную для каждой ячейки может быть довольно утомительно и отнимать много времени. К счастью, есть несколько более простых способов добиться этого, позволяющих более эффективно добавлять один и тот же текст в начало или конец всех ячеек выделенного фрагмента.

Добавить указанный текст в начало / конец всех ячеек с формулами
Добавить указанный текст в начало / конец всех ячеек с помощью VBA

Добавить указанный текст в начало/конец всех эллов с помощью Kutools for Excel

Добавить указанный текст в указанную позицию всех ячеек с помощью Kutools for Excel

Добавить указанный текст в начало / конец всех ячеек с формулами

Есть две формулы для добавления указанного текста в начало или конец всех выбранных ячеек в Microsoft Excel.

Метод 1: & формула

Введите = «Класс A:» & A2 в ячейке C2, а затем перетащите маркер заполнения вниз в ячейки, к которым вы хотите применить эту формулу. И конкретный текст был добавлен перед всеми ячейками, см. Снимок экрана:

документ добавить конкретный текст 1

Метод 2: формула конкатенации

Введите = Concatenate («Класс A:»; A2) в ячейке C2, а затем перетащите и скопируйте эту формулу в ячейки, которые вы хотите использовать, см. снимок экрана:

документ добавить конкретный текст 2

Ноты:

1. Если вы хотите добавить другой указанный текст в каждую ячейку, просто замените Класс A: с вашим текстом в обеих формулах.

2. Формулы = A2 & «: класс A» и = Concatenate (A2; «: класс A») добавлю : Класс А в конце ячеек.

3. Обе формулы не изменяют содержимое выделения напрямую.

Добавить тот же текст в определенное место каждой ячейки в Excel

Добавить указанный текст в начало / конец всех ячеек с помощью VBA

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

1. Выберите диапазон, в который вы добавите указанный текст;

2. Удерживайте другой + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

3. Нажмите Вставить > Модулии вставьте следующий код VBA в окно модуля.

VBA: добавление указанного текста в начало каждой ячейки:

Sub AppendToExistingOnLeft() Dim c As Range For Each c In Selection If c.Value <> "" Then c.Value = "CN- " & c.Value Next End Sub

4, нажмите F5 ключ для запуска этого макроса. И ко всем ячейкам будет добавлено значение CN- перед содержимым ячейки.

документ добавить конкретный текст 3

Ноты: 1. Чтобы добавить определенный текст в конец каждой ячейки, примените следующий код VBA.

VBA: добавление указанного текста в конец каждой ячейки:

Sub AppendToExistingOnRight() Dim c as range For each c in Selection If c.value <> "" Then c.value = c.value & "-CN" Next End Sub

И вы получите следующий результат:

документ добавить конкретный текст 4

2. вы можете изменить переменную «CN-» или «-CN«из приведенных выше кодов.

Добавить указанный текст в начало/конец всех ячеек с помощью Kutools for Excel

Kutools for Excel‘s Add Text инструмент поможет вам быстро добавить указанный текст в начало или конец каждой ячейки в выделенном фрагменте.

После установки Kutools for Excel, пожалуйста, сделайте следующее: (Бесплатная загрузка Kutools for Excel Сейчас!)

1. Выберите диапазон, в который вы добавите указанный текст.

2, Нажмите Кутулс > Text > Add Text… . Смотрите скриншот:

документ добавить конкретный текст 11

3. В Add Text диалоговом окне введите текст, который необходимо добавить в поле Text пунктом.

(1.) Если вы проверите Before first character из Position раздел, и конкретный текст будет добавлен перед всеми значениями ячеек, см. снимок экрана:

документ добавить конкретный текст 6

(2.) Если вы проверите After last character из Position раздел, и конкретный текст будет добавлен в конце значений ячеек, см. снимок экрана:

документ добавить конкретный текст 7

Ноты:

1. Kutools for Excel‘s Add Text инструмент позволяет предварительно просмотреть изменения в выделении в разделе Предварительный просмотр.

2. Если вы проверите Skip non-text cells вариант, этот инструмент не будет добавлять указанный текст в ячейки с нетекстовым содержимым.

Добавить указанный текст в указанную позицию всех ячеек с помощью Kutools for Excel

Применение Kutools for Excel ‘s Add Text функция, вы можете не только добавить указанный текст в начало или конец ячеек, но также вы можете добавить указанный текст в указанное положение ячеек.

После установки Kutools for Excel, пожалуйста, сделайте следующее: (Бесплатная загрузка Kutools for Excel Сейчас!)

1. Выберите диапазон, в который нужно добавить текст, и нажмите Кутулс > Text > Add Text .

2, Add Text Появится диалоговое окно, введите указанный текст и укажите определенную позицию, в которую вы хотите вставить текст в поля. Смотрите скриншот:

Здесь я набираю 3 в Specify текстовое поле означает добавление текста после третьего символа строки.

документ добавить конкретный текст 8

3. Нажмите Ok or Apply . Указанный текст был добавлен в указанную позицию ячеек. Смотрите скриншот:

документ добавить конкретный текст 9

Наконечник:

документ добавить конкретный текст 12

(1) В Specify текстовое поле, вы можете вводить числа через запятую, чтобы добавить текст в несколько позиций одновременно.

документ добавить конкретный текст 10

(2) Если вы хотите добавить текст перед каждой прописной буквой, 1st letter is uppercase вариант в Add Text утилита может вам помочь.

Кроме того, вы можете добавлять текст перед каждой строчной буквой или каждой цифровой буквой.

Демонстрация: добавление текста в начало или конец всех ячеек

Относительные статьи:

Добавить строки текста в несколько ячеек
Добавление / вставка ведущих нулей к числам или тексту
Добавить / вставить префикс или суффикс к выбранным ячейкам, строкам и столбцам
Добавить символ процента для нескольких чисел в ячейках

Как добавить слово в каждую ячейку excel

Например мне надо в столбец 3 там где госты вставить к вонце текста в каждую ячейку одно слово. Как это проще сделать ?

Например мне надо в столбец 3 там где госты вставить к вонце текста в каждую ячейку одно слово. Как это проще сделать ? koyaanisqatsi

К сообщению приложен файл: _4.docx (95.8 Kb)

Например мне надо в столбец 3 там где госты вставить к вонце текста в каждую ячейку одно слово. Как это проще сделать ? Автор — koyaanisqatsi
Дата добавления — 17.07.2015 в 19:01

Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Замечаний: 0% ±

Excel 2016 х 64

На мой взгляд
1.Скопировать столбец в эксель
2. Прописать формулу
в верхней ячейке соседнего столбца (или на 1 строку ниже)

3. размножить на рабочий диапазон
4. вставить значения обратно

[p.s.] Добавляемое слово в ячейке R2C3

3. размножить на рабочий диапазон
4. вставить значения обратно

[p.s.] Добавляемое слово в ячейке R2C3 Udik

К сообщению приложен файл: word1.xlsx (21.4 Kb) · edit_4.docx (89.7 Kb)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik — Пятница, 17.07.2015, 19:22

Сообщение На мой взгляд
1.Скопировать столбец в эксель
2. Прописать формулу
в верхней ячейке соседнего столбца (или на 1 строку ниже)

3. размножить на рабочий диапазон
4. вставить значения обратно

[p.s.] Добавляемое слово в ячейке R2C3 Автор — Udik
Дата добавления — 17.07.2015 в 19:17

Группа: Проверенные
Ранг: Ветеран
Сообщений: 713
Замечаний: 0% ±

Excel 2010

был бы хороший метод если бы совпадали ячейки. А так эксель придумывает какое-то свое количество ячеек (
Возможно из-за встречающихся переносов строки. «Ентеров»

был бы хороший метод если бы совпадали ячейки. А так эксель придумывает какое-то свое количество ячеек (
Возможно из-за встречающихся переносов строки. «Ентеров» koyaanisqatsi

Сообщение был бы хороший метод если бы совпадали ячейки. А так эксель придумывает какое-то свое количество ячеек (
Возможно из-за встречающихся переносов строки. «Ентеров» Автор — koyaanisqatsi
Дата добавления — 17.07.2015 в 19:23

Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Замечаний: 0% ±

Excel 2013
проще всего, думаю, так:[vba]

Sub TextAdd()
Dim i&
With ThisDocument.Tables(2)
For i = 2 To .Rows.Count — 2
.Cell(i, 3).Range.InsertAfter vbCr & «Текст в конце ячейки.»
Next
End With
End Sub

А если это нужно делать не из Word’а, то после Dim i& добавьте еще 2 строчки:[vba]

Dim ThisDocument As Object
Set ThisDocument = CreateObject(«Word.Application»).Documents.Open(«Диск:\Путь\Файл.doc»)

[p.s.]Не видел, что в конце 2 строки «Итого» (не листал так далеко ), спасибо Роману (Rioran), подправил.[/p.s.]

проще всего, думаю, так:[vba]

Sub TextAdd()
Dim i&
With ThisDocument.Tables(2)
For i = 2 To .Rows.Count — 2
.Cell(i, 3).Range.InsertAfter vbCr & «Текст в конце ячейки.»
Next
End With
End Sub

А если это нужно делать не из Word’а, то после Dim i& добавьте еще 2 строчки:[vba]

Dim ThisDocument As Object
Set ThisDocument = CreateObject(«Word.Application»).Documents.Open(«Диск:\Путь\Файл.doc»)

[p.s.]Не видел, что в конце 2 строки «Итого» (не листал так далеко ), спасибо Роману (Rioran), подправил.[/p.s.] KSV

Сообщение отредактировал KSV — Пятница, 17.07.2015, 19:40
Сообщение проще всего, думаю, так:[vba]

Sub TextAdd()
Dim i&
With ThisDocument.Tables(2)
For i = 2 To .Rows.Count — 2
.Cell(i, 3).Range.InsertAfter vbCr & «Текст в конце ячейки.»
Next
End With
End Sub

А если это нужно делать не из Word’а, то после Dim i& добавьте еще 2 строчки:[vba]

Dim ThisDocument As Object
Set ThisDocument = CreateObject(«Word.Application»).Documents.Open(«Диск:\Путь\Файл.doc»)

[p.s.]Не видел, что в конце 2 строки «Итого» (не листал так далеко ), спасибо Роману (Rioran), подправил.[/p.s.] Автор — KSV
Дата добавления — 17.07.2015 в 19:28

Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Замечаний: 0% ±

Excel 2013

koyaanisqatsi, здравствуйте.

Предлагаю подумать в этом направлении. Обратите внимание, нужная вам таблица в этом документе носит номер 2, поэтому Tables(2). Счётчик бежит от 2-й строки до последней минус 2, т.к. там заголовки и итоги.

Sub Rio_Adds_to_Table()
Dim i&
With ActiveDocument.Tables(2)
For i = 2 To .Rows.Count — 2
.Cell(i, 3).Range.Text = .Cell(i, 3).Range.Text & » Rioran!»
Next i
End With
End Sub

[/vba]
***
UPD: Вставка от KSV выглядит производительнее моей, ещё учесть 2 строки «Итого» — и будет ближе к идеалу =)

UPD: Раннее связывание в Эксель документе будет производительнее, чем позднее. Для этого стоит в VBA редакторе Excel через Tools => References добавить Microsoft Word XX.0 Object Library и переписать строку объявления переменной:

Dim ThisDocument As Word.Application

[/vba]
UPD: Сергей, наши с тобой коды делают перенос строки при добавлении =) Если бы не пятница, я бы попробовал убрать этот эффект =)

UPD: Сергей, не сразу заметил, что если в твоём коде убрать «vbCr &» — то переноса не будет.

koyaanisqatsi, здравствуйте.

Sub Rio_Adds_to_Table()
Dim i&
With ActiveDocument.Tables(2)
For i = 2 To .Rows.Count — 2
.Cell(i, 3).Range.Text = .Cell(i, 3).Range.Text & » Rioran!»
Next i
End With
End Sub

Dim ThisDocument As Word.Application

UPD: Сергей, не сразу заметил, что если в твоём коде убрать «vbCr &» — то переноса не будет. Rioran

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Сообщение отредактировал Rioran — Пятница, 17.07.2015, 19:47

Сообщение koyaanisqatsi, здравствуйте.

Sub Rio_Adds_to_Table()
Dim i&
With ActiveDocument.Tables(2)
For i = 2 To .Rows.Count — 2
.Cell(i, 3).Range.Text = .Cell(i, 3).Range.Text & » Rioran!»
Next i
End With
End Sub

Dim ThisDocument As Word.Application

UPD: Сергей, не сразу заметил, что если в твоём коде убрать «vbCr &» — то переноса не будет. Автор — Rioran
Дата добавления — 17.07.2015 в 19:29

Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Замечаний: 0% ±

Excel 2013

Роман, с ранним связыванием, нужно чтобы на всех компах, где будет использоваться этот документ (с макросом), была установлена та же версия офиса, ссылка на которую была добавлена через Tools => References, а это не всегда приемлемо, поэтому лучше пожертвовать лишние «полсекунды», но решение будет более универсальным.

Сообщение Роман, с ранним связыванием, нужно чтобы на всех компах, где будет использоваться этот документ (с макросом), была установлена та же версия офиса, ссылка на которую была добавлена через Tools => References, а это не всегда приемлемо, поэтому лучше пожертвовать лишние «полсекунды», но решение будет более универсальным. Автор — KSV
Дата добавления — 17.07.2015 в 19:46

Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Замечаний: 0% ±

Excel 2013
Цитата Rioran, 17.07.2015 в 19:29, в сообщении № 5
не сразу заметил, что если в твоём коде убрать «vbCr &»

А я его специально добавил
IMHO, так нагляднее, когда добавленная строка «отделена» от исходного текста.

Цитата Rioran, 17.07.2015 в 19:29, в сообщении № 5
не сразу заметил, что если в твоём коде убрать «vbCr &»

А я его специально добавил
IMHO, так нагляднее, когда добавленная строка «отделена» от исходного текста. KSV

Цитата Rioran, 17.07.2015 в 19:29, в сообщении № 5
не сразу заметил, что если в твоём коде убрать «vbCr &»

А я его специально добавил
IMHO, так нагляднее, когда добавленная строка «отделена» от исходного текста. Автор — KSV
Дата добавления — 17.07.2015 в 19:48

Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Замечаний: 0% ±

Excel 2013
Цитата KSV, 17.07.2015 в 19:46, в сообщении № 6
лучше пожертвовать лишние «полсекунды», но решение будет более универсальным.

Сергей, ты прав. Сначала подумал — в чём вопрос? Просто добавить в Excel самую раннюю библиотеку Word — 11.0 например — чтобы на 2003 вордах работало, но. Оказывается, в поздних версиях Excel её нет в свободном доступе для добавления в References. Во всяком случае, в своём 2013 Excel я ссылки моложе 15.0 не нашёл.

Цитата KSV, 17.07.2015 в 19:46, в сообщении № 6
лучше пожертвовать лишние «полсекунды», но решение будет более универсальным.

Группа: Проверенные
Ранг: Ветеран
Сообщений: 713
Замечаний: 0% ±

Excel 2010

Хм. Прям ГИК вечеринка образовалась ))))
Вот и поговорили ))))

Думал будет какоето простое решение. Типа на подобии как в фаре или эсидиси переименовывать файлы ставишь какойто супер символ с чего менять и потом такой же супер символ и после него что добавить. и получаются новые файлы уже со старым именем + добавочка.

Но подобного как в Far организации не придумал (

А можно тогда этот макрос переделать не под номерной столбец а под выделенный фрагмент ?

Хм. Прям ГИК вечеринка образовалась ))))
Вот и поговорили ))))

Но подобного как в Far организации не придумал (

А можно тогда этот макрос переделать не под номерной столбец а под выделенный фрагмент ? koyaanisqatsi

Сообщение Хм. Прям ГИК вечеринка образовалась ))))
Вот и поговорили ))))

Но подобного как в Far организации не придумал (

А можно тогда этот макрос переделать не под номерной столбец а под выделенный фрагмент ? Автор — koyaanisqatsi
Дата добавления — 17.07.2015 в 22:27

Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Замечаний: 0% ±

Excel 2013
Цитата koyaanisqatsi, 17.07.2015 в 22:27, в сообщении № 9
Думал будет какоето простое решение.

Куда проще-то? (3 строчки кода)

Цитата koyaanisqatsi, 17.07.2015 в 22:27, в сообщении № 9
А можно тогда этот макрос переделать не под номерной столбец а под выделенный фрагмент ?

Т.е., добавлять текст нужно не во всех ячейках столбца, а только в выделенных?
Тогда, так:[vba]

Sub TextAdd()
Dim c As Cell
For Each c In Selection.Cells
c.Range.InsertAfter vbCr & «Текст в конце ячейки.» ‘ так – добавляет отдельной строкой (для наглядности)
‘c.Range.InsertAfter » Текст в конце ячейки.» ‘ а так – добавляет в конец последнего абзаца (через пробел)
Next
End Sub

[/vba]
(можно выделить ячейки сразу в нескольких столбцах и строках)
Цитата koyaanisqatsi, 17.07.2015 в 22:27, в сообщении № 9
Думал будет какоето простое решение.

Куда проще-то? (3 строчки кода)

[/vba]
(можно выделить ячейки сразу в нескольких столбцах и строках) KSV
Цитата koyaanisqatsi, 17.07.2015 в 22:27, в сообщении № 9
Думал будет какоето простое решение.

Куда проще-то? (3 строчки кода)

[/vba]
(можно выделить ячейки сразу в нескольких столбцах и строках) Автор — KSV
Дата добавления — 18.07.2015 в 12:44

Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Замечаний: 0% ±

Excel 2016 х 64

Вчера звёзды не сошлись

Сегодня вроде решил (чтоб без vba):
1. Выделяем в ворде столбец, без лишних ячеек.
2. Удаляем «^p» или заменям его на «разрыв строки» в выделенном через поиск и замена
3. Не снимая выделения, заменяем «разрыв строки» на && (или нечто подобное)
4. Копируем в эксель, и о чудо — ячейки не размножаются
дальше как в посте 2
~Последний пункт: меняем && на разрыв строки

Вчера звёзды не сошлись

К сообщению приложен файл: 9504054.xlsx (19.2 Kb) · edit_42.docx (55.0 Kb)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik — Суббота, 18.07.2015, 15:13

Сообщение Вчера звёзды не сошлись

Группа: Проверенные
Ранг: Ветеран
Сообщений: 713
Замечаний: 0% ±

Excel 2010

Спасибо всем большое.

Вчера вставляли руками. Тратя много времени от откладывая уход с роботы до необозримого будущего (ну в 22:30 в итоге закончили.)
А в следующий раз если пригодится можно будет уже вооружится чем-то из этой темы. Огромное спасибо !

Спасибо всем большое.

Сообщение Спасибо всем большое.

Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Замечаний: 0% ±

Excel 2013

[offtop]Udik, ну, не знаю. Даже само кол-во действий уже «напрягает» , не говоря уже о времени, потраченном на эти действия. И это только для того, чтобы «без VBA». СтОит оно того?
Мне кажется, что пара секунд, потраченная на то, чтобы открыть документ, выделить нужный фрагмент таблицы, нажать Alt+F11, вставить код макроса, нажать F5 и удалить код макроса, делают вариант «с VBA» гораздо привлекательней. И не нужно никаких сторонних программ (Excel) и никаких преобразований туда-обратно.
Ну, это на мой взгляд. [/offtop]

Сообщение [offtop]Udik, ну, не знаю. Даже само кол-во действий уже «напрягает» , не говоря уже о времени, потраченном на эти действия. И это только для того, чтобы «без VBA». СтОит оно того?
Мне кажется, что пара секунд, потраченная на то, чтобы открыть документ, выделить нужный фрагмент таблицы, нажать Alt+F11, вставить код макроса, нажать F5 и удалить код макроса, делают вариант «с VBA» гораздо привлекательней. И не нужно никаких сторонних программ (Excel) и никаких преобразований туда-обратно.
Ну, это на мой взгляд. [/offtop] Автор — KSV
Дата добавления — 18.07.2015 в 15:30

Группа: Проверенные
Ранг: Ветеран
Сообщений: 713
Замечаний: 0% ±

Excel 2010

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

Сообщение KSV, да я не против вба. я просто в ворде еще ниразу не пробовал. Наверно получится )
В принцепе то тема уже думаю самодостаточная. Есть скорее всего полные варианты решания таких проблем разными способами. Наверняка не составит труда и вба запустить. Автор — koyaanisqatsi
Дата добавления — 18.07.2015 в 15:49

Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Замечаний: 0% ±

Excel 2016 х 64
Цитата KSV, 18.07.2015 в 15:30, в сообщении № 13
не говоря уже о времени, потраченном на эти действия

всего пара минут.

Применять вба хорошо, если макросы разрешены и разбираешься в них, иначе любое изменение начальных условий может вызвать ступор

[p.s.]меня заинтересовала сама возможность перегнать таблицу ворд в эксель без проблем с ячейками

Цитата KSV, 18.07.2015 в 15:30, в сообщении № 13
не говоря уже о времени, потраченном на эти действия

всего пара минут.

[p.s.]меня заинтересовала сама возможность перегнать таблицу ворд в эксель без проблем с ячейками Udik

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik — Суббота, 18.07.2015, 16:42
Цитата KSV, 18.07.2015 в 15:30, в сообщении № 13
не говоря уже о времени, потраченном на эти действия

всего пара минут.

[p.s.]меня заинтересовала сама возможность перегнать таблицу ворд в эксель без проблем с ячейками Автор — Udik
Дата добавления — 18.07.2015 в 16:39

Группа: Проверенные
Ранг: Ветеран
Сообщений: 713
Замечаний: 0% ±

Excel 2010

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

Сообщение А можно так чтобы при запуске макроса он спрашивал какое слово вставлять ? я то и так справился бы как тут есть но если девченкам давать этот вариант для работы им то по вба ползать наверно не айс ) Автор — koyaanisqatsi
Дата добавления — 18.07.2015 в 18:56

Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Замечаний: 0% ±

Excel 2013

Sub TextAdd()
Dim s$, c As Cell
s = InputBox(«Введите текст, который нужно добавить», «Добавление текста», «Чтобы не вводить каждый раз»)
If Len(s) = 0 Then Exit Sub ‘ если нажали «Отмена»
For Each c In Selection.Cells
c.Range.InsertAfter vbCr & «Текст в конце ячейки.» ‘ так – добавляет отдельной строкой (для наглядности)
‘c.Range.InsertAfter » Текст в конце ячейки.» ‘ а так – добавляет в конец последнего абзаца (через пробел)
Next
End Sub

Сообщение [vba]

Как добавить слово в каждую ячейку excel

Как добавить слово в каждую ячейку excel

Как быстро дописать в столбике в каждой ячейке EXCEL одно слово

покупка

Как добавить текст в начало или конец всех ячеек в Excel?

Добавить указанный текст в начало / конец всех ячеек с формулами

Добавить тот же текст в определенное место каждой ячейки в Excel

Добавить указанный текст в начало / конец всех ячеек с помощью VBA

Добавить указанный текст в начало/конец всех ячеек с помощью Kutools for Excel

Добавить указанный текст в указанную позицию всех ячеек с помощью Kutools for Excel

Демонстрация: добавление текста в начало или конец всех ячеек

Относительные статьи:

Как добавить слово в каждую ячейку excel

Добавить комментарий Отменить ответ