Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2018, 14:17   #1
impact
Пользователь
 
Регистрация: 26.07.2011
Сообщений: 13
По умолчанию во всех ячейках столбца удалить символы

MS Excel 2010
Добрый день, помогите конструктору создать код для макроса , который будет удалять ненужные символы во всех ячейках столбцах (активных при наведении)
во вложении файл
в ячейках столбца в данном случае (столбец REF) значение(референс), он состоит из 11 символов, но к нему после вывода спецификации (справа) привязывается служебная ненужная информация.(символы ,цифры, буквы)
Нужно что бы эти символы удалялись в активной ячейке редактируемого столбца.
Значения могут быть в любом столбце
например:
I2A16AD1AAA 1980 нужно что бы остался I2A16AD1AAA.
Заранее спасибо за помощь
Вложения
Тип файла: xlsx Line 7.xlsx (17.4 Кб, 13 просмотров)
impact вне форума Ответить с цитированием
Старый 18.10.2018, 14:27   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

так можно и без макроса.
в отдельный столбец формулу
Код:
=ЛЕВСИМВ(C2;11)
потянуть вниз

готово.

p.s. если нужно заменить исходный текст - выделить и вставить в нужный столбец "Специальная вставка" - "Значения".
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.10.2018, 14:39   #3
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Или выделить столбец - Текст по столбцам - фиксированной ширины - оставить одну границу на 11 позиции - второй столбец: пропустить - готово.
Чтобы команда Текст по столбцам была доступна, нужно отключить общий доступ.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 18.10.2018, 14:54   #4
impact
Пользователь
 
Регистрация: 26.07.2011
Сообщений: 13
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
так можно и без макроса.
в отдельный столбец формулу
Код:
=ЛЕВСИМВ(C2;11)
потянуть вниз

готово.

p.s. если нужно заменить исходный текст - выделить и вставить в нужный столбец "Специальная вставка" - "Значения".
это понятно, в примере дана маленькая часть файла, там куча столбцов, надо что бы инженер надавил на активный столбец и делал замену. и файлов у него может быть штук 10
impact вне форума Ответить с цитированием
Старый 18.10.2018, 15:17   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от impact Посмотреть сообщение
надо что бы инженер надавил на активный столбец
а как это - "надавил на активный столбец" ?

предлагаю такой вариант
взять простейший макрос вида:
Код:
Sub CopyLeft11()
    Dim cell As Range
    For Each cell In Selection
        cell.Value = Left (cell.Value, 11) 
    Next
End Sub
инженера научить так.
- сохранить документ (ибо откат будет потом невозможен)
- выделить все нужные ячейки (любым удобным способом),
- вызвать макрос CopyLeft11 (Например, по Alt-F8)

Profit.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 18.10.2018, 15:24   #6
impact
Пользователь
 
Регистрация: 26.07.2011
Сообщений: 13
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
а как это - "надавил на активный столбец" ?

предлагаю такой вариант
взять простейший макрос вида:
Код:
Sub CopyLeft11()
    Dim cell As Range
    For Each cell In Selection
        cell.Value = Left (cell.Value, 11) 
    Next
End Sub
инженера научить так.
- сохранить документ (ибо откат будет потом невозможен)
- выделить все нужные ячейки (любым удобным способом),
- вызвать макрос CopyLeft11 (Например, по Alt-F8)

Profit.
спасибо работает
активный столбец-я имел что наводишь на любую ячейку столбца и запускаешь макрос.
Спасибо за код
impact вне форума Ответить с цитированием
Старый 18.10.2018, 22:17   #7
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

на поставленный вопрос
Columns(X).clear
удаляет символы из столбца Х
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удалить символы в ячейке Maxim360 Microsoft Office Excel 6 06.07.2017 19:44
Удалить символы из строки develsnik Общие вопросы Delphi 22 02.04.2013 03:50
Удалить повторяющиеся символы Heng Помощь студентам 4 11.11.2012 18:04
Макрос чтобы во всех ячейках столбца удалить последний символ alex0070 Microsoft Office Excel 4 14.10.2011 22:45
удалить в тексте символы mego4el Помощь студентам 4 24.12.2010 21:25