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

Вход

Регистрация

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

 

= Мир MS Excel/Добавить кавычки во все строки диапазона - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить кавычки во все строки диапазона (Формулы/Formulas)
Добавить кавычки во все строки диапазона
scaels1 Дата: Вторник, 31.03.2015, 00:21 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Добрый день.
Помогите пожалуйста составить макрос, который решит несложную задачу.
На листе есть диапазон А1:А100
ячейка может быть пустой или с текстовыми данными.
Задача: значение каждой не пустой ячейки взять в кавычки. т.е. было в А1 - вариант текста 1, а после обработки станет "вариант текста 1" и так пройтись по всем ячейкам диапазона. т.е. надо добавить кавычки в начало и в конец каждой не пустой ячейки. Если ячейка пустая, тогда туда добавлять ничего не надо.
Спасибо
[moder]Вообще-то, несмотря на то, что все понятно, примерчик все равно нужен. Кстати, а текст не может начинаться или заканчиваться на кавычку?
 
Ответить
СообщениеДобрый день.
Помогите пожалуйста составить макрос, который решит несложную задачу.
На листе есть диапазон А1:А100
ячейка может быть пустой или с текстовыми данными.
Задача: значение каждой не пустой ячейки взять в кавычки. т.е. было в А1 - вариант текста 1, а после обработки станет "вариант текста 1" и так пройтись по всем ячейкам диапазона. т.е. надо добавить кавычки в начало и в конец каждой не пустой ячейки. Если ячейка пустая, тогда туда добавлять ничего не надо.
Спасибо
[moder]Вообще-то, несмотря на то, что все понятно, примерчик все равно нужен. Кстати, а текст не может начинаться или заканчиваться на кавычку?
Автор - scaels1
Дата добавления - 31.03.2015 в 00:21
Nic70y Дата: Вторник, 31.03.2015, 00:47 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2293 ±
Замечаний: 0% ±

Excel 2010
Цитата scaels1, 31.03.2015 в 00:21, в сообщении № 1
текст не может начинаться или заканчиваться на кавычку?

[vba]
Код
    Range("a1:a100").Replace What:="""""", Replacement:=""""
[/vba]остальное не скажу :( т.к.
Цитата scaels1, 31.03.2015 в 00:21, в сообщении № 1
примерчик все равно нужен

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 31.03.2015, 00:49
 
Ответить
Сообщение
Цитата scaels1, 31.03.2015 в 00:21, в сообщении № 1
текст не может начинаться или заканчиваться на кавычку?

[vba]
Код
    Range("a1:a100").Replace What:="""""", Replacement:=""""
[/vba]остальное не скажу :( т.к.
Цитата scaels1, 31.03.2015 в 00:21, в сообщении № 1
примерчик все равно нужен
Автор - Nic70y
Дата добавления - 31.03.2015 в 00:47
Goblinax Дата: Вторник, 31.03.2015, 02:28 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 24
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
1)ставим в клетку В1 кавчку.
2)в клетке С1 пишем =B1&A1&B1 получается клетка а1 в кавчках.
3) протягиваем эту формулу до низу. копируем и вставляем весь получившийся столбик как значение вместо столбика А(копировать как, галочка как значение) , затем удаляем все кроме столика А.
4) выделяем весь столбик А. жмем сонтр+Н. делаем в верхней строке пишем "" в нижней ничего. жмем "заменить все"
5) профит)
 
Ответить
Сообщение1)ставим в клетку В1 кавчку.
2)в клетке С1 пишем =B1&A1&B1 получается клетка а1 в кавчках.
3) протягиваем эту формулу до низу. копируем и вставляем весь получившийся столбик как значение вместо столбика А(копировать как, галочка как значение) , затем удаляем все кроме столика А.
4) выделяем весь столбик А. жмем сонтр+Н. делаем в верхней строке пишем "" в нижней ничего. жмем "заменить все"
5) профит)
Автор - Goblinax
Дата добавления - 31.03.2015 в 02:28
МВТ Дата: Вторник, 31.03.2015, 07:16 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
Небольшое изменение в формуле:
Код
=ЕСЛИ(A1="";"";$B$1&B1&$B$1)
Это позволит ставить кавычку только в первой ячейке и не убирать кавычки через Ctrl-H. Можно вообще не задействовать третий столбец:
Код
=ЕСЛИ(A1="";"";""""&A1&"""")
. Но если вы настаиваете именно на макросе, вот он[vba]
Код
Sub QQ()
For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row
With Cells(I, 1)
If .Value <> "" And Left(.Value, 1) <> """" And Right(.Value, 1) <> """" Then .Value = """" & .Value & """"
End With
Next I
End Sub
[/vba]
UPD Подправил макрос с учетом замечания уважаемого Nic70y


Сообщение отредактировал МВТ - Вторник, 31.03.2015, 07:39
 
Ответить
СообщениеНебольшое изменение в формуле:
Код
=ЕСЛИ(A1="";"";$B$1&B1&$B$1)
Это позволит ставить кавычку только в первой ячейке и не убирать кавычки через Ctrl-H. Можно вообще не задействовать третий столбец:
Код
=ЕСЛИ(A1="";"";""""&A1&"""")
. Но если вы настаиваете именно на макросе, вот он[vba]
Код
Sub QQ()
For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row
With Cells(I, 1)
If .Value <> "" And Left(.Value, 1) <> """" And Right(.Value, 1) <> """" Then .Value = """" & .Value & """"
End With
Next I
End Sub
[/vba]
UPD Подправил макрос с учетом замечания уважаемого Nic70y
Автор - МВТ
Дата добавления - 31.03.2015 в 07:16
Nic70y Дата: Вторник, 31.03.2015, 07:42 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2293 ±
Замечаний: 0% ±

Excel 2010
Хулиганы! Наотвечали все таки!
МВТ, не хватает
Цитата МВТ, 31.03.2015 в 07:16, в сообщении № 4
=ЕСЛИ(A1=""
т.е. ЛЕВБ и ПРАВБ
[moder]Действительно. Ну и ладно, хулиганы наотвечали, а я поскрываю.

ЮMoney 41001841029809

Сообщение отредактировал _Boroda_ - Вторник, 31.03.2015, 09:49
 
Ответить
СообщениеХулиганы! Наотвечали все таки!
МВТ, не хватает
Цитата МВТ, 31.03.2015 в 07:16, в сообщении № 4
=ЕСЛИ(A1=""
т.е. ЛЕВБ и ПРАВБ
[moder]Действительно. Ну и ладно, хулиганы наотвечали, а я поскрываю.
Автор - Nic70y
Дата добавления - 31.03.2015 в 07:42
МВТ Дата: Вторник, 31.03.2015, 07:55 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
Nic70y, простите великодушно не доглядел. Вначале сделал формулу, потом макрос, потом подправил макрос с учетом вашего комментария, а формулу - запамятовал. Спешу исправить оплошность:
Код
=ЕСЛИ(ИЛИ(A1="";ЛЕВСИМВ(A1;1)="""";ПРАВСИМВ(A1;1)=""""); "";""""&A1&"""")
 
Ответить
СообщениеNic70y, простите великодушно не доглядел. Вначале сделал формулу, потом макрос, потом подправил макрос с учетом вашего комментария, а формулу - запамятовал. Спешу исправить оплошность:
Код
=ЕСЛИ(ИЛИ(A1="";ЛЕВСИМВ(A1;1)="""";ПРАВСИМВ(A1;1)=""""); "";""""&A1&"""")
Автор - МВТ
Дата добавления - 31.03.2015 в 07:55
Nic70y Дата: Вторник, 31.03.2015, 08:06 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2293 ±
Замечаний: 0% ±

Excel 2010
такой вариант;
Код
=ПОДСТАВИТЬ(""""&A1&"""";"""""";"""")
МВТ, а макрос Ваш я стырю. Мой получился не такой красивый :( (не покажу)
так правильнее:
Код
=ЕСЛИ(A1="";"";ПОДСТАВИТЬ(""""&A1&"""";"""""";""""))

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Вторник, 31.03.2015, 08:14
 
Ответить
Сообщениетакой вариант;
Код
=ПОДСТАВИТЬ(""""&A1&"""";"""""";"""")
МВТ, а макрос Ваш я стырю. Мой получился не такой красивый :( (не покажу)
так правильнее:
Код
=ЕСЛИ(A1="";"";ПОДСТАВИТЬ(""""&A1&"""";"""""";""""))
Автор - Nic70y
Дата добавления - 31.03.2015 в 08:06
scaels1 Дата: Вторник, 31.03.2015, 19:38 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Вот пример в файле.
кавычек в исходном тексте быть не может.
Просьба к модератору - открыть скрытый для меня текст.
К сообщению приложен файл: 2313422.xlsx (10.1 Kb)
 
Ответить
СообщениеВот пример в файле.
кавычек в исходном тексте быть не может.
Просьба к модератору - открыть скрытый для меня текст.
Автор - scaels1
Дата добавления - 31.03.2015 в 19:38
wild_pig Дата: Вторник, 31.03.2015, 23:17 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 517
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
[vba]
Код
Sub uuu()
     Dim Cel As Range
     For Each Cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
         If Cel <> "" Then Cel.Value = Chr(34) & Cel.Value & Chr(34)
     Next
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub uuu()
     Dim Cel As Range
     For Each Cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
         If Cel <> "" Then Cel.Value = Chr(34) & Cel.Value & Chr(34)
     Next
End Sub
[/vba]
Автор - wild_pig
Дата добавления - 31.03.2015 в 23:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить кавычки во все строки диапазона (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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