Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

так можно и без макроса.
в отдельный столбец формулу
Код:

=ЛЕВСИМВ(C2;11)

потянуть вниз

готово.

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

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

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
так можно и без макроса.
в отдельный столбец формулу
Код:

=ЛЕВСИМВ(C2;11)

потянуть вниз

готово.

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

Цитата:
Сообщение от 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, 16:24   #6
impact
Пользователь
 
Регистрация: 26.07.2011
Сообщений: 13
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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, 23:17   #7
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Адрес: УКРАЇНА, Київ
Сообщений: 8,978
Репутация: 1710

icq: 7934250
skype: i2x0,5
По умолчанию

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

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удалить символы в ячейке Maxim360 Microsoft Office Excel 6 06.07.2017 20: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 22:25


15:59.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru