Текст взять в кавычки

Старая форма входа

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

Текст взять в кавычки (Формулы/Formulas)

pahaaa

Дата: Понедельник, 05.05.2014, 20:34 | Сообщение № 1

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

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

Сообщений: 5

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

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

Excel 2007

Добрый вечер всем.
У меня в столбце С более 1000 ячеек, в них текст с разным содержанием, можно ли во всех ячейках, взять текст в кавычки автоматически?
Спасибо

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

Сообщение отредактировал pahaaa - Понедельник, 05.05.2014, 20:41

Ответить

ShAM

Дата: Понедельник, 05.05.2014, 20:52 | Сообщение № 2

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

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

Сообщений: 1347

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

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

Excel 2010

Формулой:

Код

=""""&C1&""""

(по 4 кавычки слева и справа) и растянуть на 1000 строк.

Ответить

Serge_007

Дата: Понедельник, 05.05.2014, 21:01 | Сообщение № 3

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата pahaaa, 05.05.2014 в 20:34, в сообщении № 1

можно ли во всех ячейках, взять текст в кавычки автоматически?

На месте (в столбце С) средствами Excel - нельзя. Только на VBA. Например так:
[vba]

Код

Sub pahaaa()
     Dim Val As Range
         For Each Val In Range("c1:c1000")
             Val = """" & Val & """"
         Next Val
    End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

pahaaa

Дата: Понедельник, 05.05.2014, 21:08 | Сообщение № 4

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

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

Сообщений: 5

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

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

Excel 2007

А что такое VBA? Макросы?

Ответить

Serge_007

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

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата pahaaa, 05.05.2014 в 21:08, в сообщении № 4

что такое VBA?

http://yandex.ru/yandsea....reask=1

ЮMoney:41001419691823 | WMR:126292472390

Ответить

pahaaa

Дата: Понедельник, 05.05.2014, 21:56 | Сообщение № 6

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

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

Сообщений: 5

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

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

Excel 2007

Цитата Serge_007, 05.05.2014 в 21:01, в сообщении № 3

Sub pahaaa()
    Dim Val As Range
        For Each Val In Range("c1:c1000")
            Val = """" & Val & """"
        Next Val
    End Sub

Подскажите пожалуйста, куда это вставить?

Ответить

Pelena

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

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

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

Сообщений: 19405

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

Замечаний: ±

Excel 365 & Mac Excel

Здесь почитайте

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

Ответить

pahaaa

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

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

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

Сообщений: 5

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

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

Excel 2007

Прочитал, но не разобрался, подскажите пожалуйста на словах, куда это вставить

Ответить

pahaaa

Дата: Понедельник, 05.05.2014, 22:46 | Сообщение № 9

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

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

Сообщений: 5

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

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

Excel 2007

Я зашел во вкладку разработчик, нажал кнопку Visual Basic и не понял куда там вводить текст

Ответить

Pelena

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

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

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

Сообщений: 19405

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

Замечаний: ±

Excel 365 & Mac Excel

Меню Insert -- Module

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

Ответить

_Boroda_

Дата: Понедельник, 05.05.2014, 23:17 | Сообщение № 11

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А может, Вам достаточно создать только видимость наличия кавычек? Посмотрите вложение. Визуально кавычки есть, а на самом деле их там нет, это только кажется. Как сделано? - Топните на любую ячейку (например, С3) правой кнопкой мыши и выберите "Формат ячеек", на вкладке "Число" Вы увидите такой формат: ;;;\"@\"

По поводу макроса: Копируете макрос Сергея, в своем файле топаете правой кнопкой мыши на ярлычок листа (обычно, если не переименовывали, то там написано что-то типа Лист1), выбираете "Исходный текст", вставляете в появившееся белое окошки скопированный ранее код, в куске макроса Range("c1:c1000") вручную переписываете свой диапазон, устанавливаете курсор мыши в любое место между Sub и End Sub и жмете F5. Все.
Или вставляете такой макрос:[vba]

Код

Sub pahaaa1()
     Dim Val As Range
         For Each Val In Range("c1:c" & Range("c" & Rows.Count).End(xlUp).Row)
             Val = """" & Val & """"
         Next Val
End Sub

[/vba]. Тогда последовательность действий аналогична, кроме ручной замены диапазона

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Текст взять в кавычки (Формулы/Formulas)

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