Убрать макросом данные до двоеточия

Horned

Гость

04.08.2010 14:29:25

Привет всем знатокам Excel'а!
Вопрос в следующем - имеются ячейки с данными. В некоторых ячейках есть двоеточие. До него написано наименование. Как можно макросом удалить эти данные (до двоеточия вместе с двоеточием). Ну в общем, в приложенном файле все понятно

Прикрепленные файлы

post_142880.xls (21.5 КБ)

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#2 04.08.2010 14:35:16 Не в тему (без макроса): =ЕСЛИ(ЕОШИБКА(НАЙТИ(":";A4));A4;ПРАВСИМВ(A4;ДЛСТР(A4)-НАЙТИ(":";A4)))

Guest Гость	#3 04.08.2010 14:41:02 если после двоеточия не больше 5 символов то: =ПОДСТАВИТЬ(ПРАВСИМВ(A4;5);":";"") Прикрепленные файлы post_142884.xls (32 КБ)

Z Гость	#4 04.08.2010 14:48:30 Ctrl+H, "*:" на - жмем "Del", "Заменить все". Z.

dude Пользователь Сообщений: 1066 Регистрация: 22.12.2012	#5 04.08.2010 14:56:21 Sub ggg() Dim i Dim r As Range Set r = Selection For i = 1 To r.Count r(i) = Mid(r(i), 1 + InStr(r(i), Chr(58))) Next End Sub

Читают тему