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

Question

Как добавить апостроф в каждое поле электронной таблицы Excel, не вводя его по отдельности? У меня как 5к полей

Answer 1

Я собираюсь предложить неочевидное. Существует фантастический (и часто недостаточно используемый) инструмент, называемый Immediate Window в редакторе Visual Basic. По сути, вы можете записывать команды в VBA и выполнять их на месте, что-то вроде командной строки. Идеально подходит для подобных случаев.

Нажмите ALT + F11, чтобы открыть VBE, затем Control + G, чтобы открыть окно «Немедленно». Введите следующее и нажмите ввод:

for each v in range("K2:K5000") : v.value = "'" & v.value : next

И бум! Вы все сделали. Не нужно создавать макрос, объявлять переменные, не нужно перетаскивать и копировать и т. Д. Закройте окно и вернитесь к работе. Единственный недостаток - отменить его, вам нужно сделать это с помощью кода, так как VBA уничтожит ваш стек отмены (но это просто).

Answer 2

Я бы сделал так:

• В ячейку L2 введите формулу ="'"&K2
• . Используйте ручку заполнения или Ctrl+D, чтобы заполнить ее додлина значений столбца K.
• Выберите все значения столбца L и скопируйте их в буфер обмена
• Выберите тот же диапазон в столбце K, щелкните правой кнопкой мыши, чтобы выбрать «Специальная вставка» ивыберите «Значения»

Answer 3

я использую концентрат.работает для меня.

1. заполнить j2-j14 с помощью '(апостроф)
2. ввести L2 с формулой = concantenate (j2, k2)
3. скопировать L2 в L3-L14

Answer 4

Более универсальным может быть: для каждого v Выбор: v.value = "'" & v.value: следующий и выбор диапазона ячеек перед выполнением