Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Удалить числа с тире и со словами
 
#1
22.06.2016 15:01:25
Здравствуйте, есть пример, в нем нужно удалить все, что отмечено желтым
1) удалить все цифры в столбце A (с тире)
2) удалить все цифры в столбце A (со словами)
3) удалить все цифры в столбце A (с тире и со словами)
удалить ячейки с такими данными
Изменено: next777pro - 22.06.2016 15:05:33
 
 
 
#2
22.06.2016 15:14:19
Код
Sub dddd()
Dim ячейка As Range
For Each ячейка In Range("a1:a15")
If ячейка Like "*[а-я]*" Or ячейка Like "*-*" Or ячейка Like "*[a-z]*" Then ячейка = ""
Next ячейка
End Sub
Изменено: Фродо - 22.06.2016 15:16:05
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#3
22.06.2016 15:14:54
Да тут всё проще: проверяем - число в ячейке или нет:
Код
Sub qqq()
Dim LastRow As Long, i As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastRow
        If Not IsNumeric(Cells(i, 1)) Then Cells(i, 1) = ""
    Next
End Sub
 
 
 
#4
22.06.2016 15:16:25
Код
Sub qq()
Range("A1:A15").SpecialCells(xlCellTypeConstants,2).Clearcontents
End Sub
Изменено: Бахтиёр - 22.06.2016 15:20:10
 
 
 
#5
22.06.2016 15:17:14
Юрий М,
а если дата? )))
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#6
22.06.2016 15:17:51
Значит дата. В примере про дату ни слова.
 
 
 
#7
22.06.2016 15:19:49
Юрий М, так там и про число ни слово
а хотят удалить....
но ваш макрос и дату сносит...
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#8
22.06.2016 15:21:34
А никто не отменял IsDate - кто мешает сделать проверку? )
 
 
 
#9
22.06.2016 15:22:01
Цитата
Фродо написал: так там и про число ни слово
Это как? Числа оставить
 
 
 
#10
22.06.2016 15:24:46
Цитата
Юрий М написал: Числа оставить
вроде нет этого в условиях ))))
 
 
 
#11
22.06.2016 15:26:13
это он зацепил условия из другой темы)))) глобальный dim))))
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#12
22.06.2016 15:28:52
Цитата
Бахтиёр написал: вроде нет этого в условиях
Есть: ячейки с числами не помечены на удаление. Вот!  :)
 
 
 
#13
22.06.2016 15:31:31
еще вариант,кнопка test,для повтора скопировать данные с соседнего листа
Код
Sub test()
 Dim z, i&: z = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
 With CreateObject("VBScript.RegExp"): .Pattern = "[-a-zа-яё]+": .IgnoreCase = True
 For i = 1 To UBound(z) 
   If .test(z(i, 1)) Then Range("A" & i + 1 )= ""
 Next
 End With
End Sub
Изменено: sv2013 - 22.06.2016 16:23:09
 
 
 
#14
22.06.2016 17:45:41
sv2013, макрос хорош, но он строки удаляет, а не ячейки

проверил все и лучше всего справился самый первый вариант от
Фродо

Всем спасибо.
Изменено: next777pro - 22.06.2016 18:06:25
 
 
 
#15
22.06.2016 18:04:02
next777pro, цитируйте, но со смыслом, а не просто для того, чтобы было понятно, кому отвечаете. Можно имя написать, без цитаты будет понятно.
 
 
 
#16
22.06.2016 18:29:35
Цитата
next777pro написал:  а не ячейки
вот удаление строки, для удаление ячейки тогда нужно знать в какую сторону смещение
Код
Sub dddd()
Dim ячейка As Range
For Each ячейка In Range("a1:a15")
If ячейка Like "*[а-я]*" Or ячейка Like "*-*" Or ячейка Like "*[a-z]*" Then Rows(ячейка.Row).Delete
Next ячейка
End Sub
у меня простая версия Экселя, в ней нет кнопки "Прочитать мысли и сгенерировать файл пример"
 
 
 
#17
22.06.2016 18:32:04
Как вариант, удаляет все, что где есть знаки, отличающиеся от чисел, точки или запятой
Код
Sub tt()
    Dim arr(), i As Long
    arr = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    With CreateObject("VBScript.Regexp")
        .Pattern = "[^\d\.,]"
        For i = 1 To UBound(arr)
            If .test(arr(i, 1)) Then arr(i, 1) = ""
        Next
    End With
    Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) = arr
End Sub
 
 
 
#18
22.06.2016 20:00:41
МВТ, Фродо, sv2013, Спасибо, ваши три варианта оказались лучшими
7/
8.
а с такими справился только МВТ
Изменено: next777pro - 22.06.2016 21:10:56
 
 
 
#19
22.06.2016 20:10:08
Цитата
МВТ написал: Как вариант, удаляет все
спасибо, великолепно
 
 
 
#20
24.06.2016 12:06:40
Юрий М, sv2013, Фродо, МВТ, Уважаемые, а как ошибки удалить #Н/Д

как сюда это приклеить
Код
Replace(Output, "#N/A", "")
Изменено: next777pro - 24.06.2016 12:33:51
 
 
 
#21
24.06.2016 12:33:55
Обсуждалось неоднократно. Посмотрите в сторону ЕСЛИОШИБКА()
 
 
 
#22
24.06.2016 12:34:29
Цитата
Юрий М написал: ЕСЛИОШИБКА()
в макрос впаять нужно, без формул
этот как дописать правильно
Код
Replace What:="#N/A", Replacement:=""
Изменено: next777pro - 26.06.2016 22:54:30
 
 
 
#23
24.06.2016 12:44:35
Я не знал, что нужно для макроса: полагал, что про формулы разговор.
Если Н/Д появляется после работы макроса, то ищите, где (из-за чего) эта самая ошибка возникает и не допускайте её.
 
 
 
#24
24.06.2016 12:48:47
Цитата
Юрий М написал: Если Н/Д появляется после работы макроса
пока не понял какая причина
дописал так, он по всему листу удаляет
ActiveSheet.UsedRange.Replace "#N/A", ""
а мне надо только J столбец
Код
Sub RazvertUgolov()
    Dim b(), i&, j&
    With Range("J2:J5000" & Cells(2, 1).End(xlDown))
        a = .Value
        For i = UBound(a, 1) To 1 Step -1
            If Not IsEmpty(a(i, 1)) Then S = Split(a(i, 1), "-"): Exit For
        Next
        ReDim b(1 To S(UBound(S)), 1 To 1)
        j = 1
        For i = 1 To UBound(a, 1)
            If IsEmpty(a(i, 1)) Then Exit For
            S = Split(a(i, 1), "-")
            If UBound(S) > 0 Then
                For k = S(0) To S(1)
                    b(j, 1) = k
                    j = j + 1
                Next
            Else
                b(j, 1) = S(0)
                j = j + 1
            End If
        Next
        .Cells(1).Resize(j) = b
    End With
ActiveSheet.UsedRange.Replace "#N/A", ""
End Sub
Изменено: next777pro - 26.06.2016 22:54:44
 
 
 
#25
24.06.2016 12:54:11
Правильно удаляет: Вы же сами указываете диапазон для обработки - активный лист. Укажите конкретно: например, range("J2:J100").
А вообще, это неправильно - устранять следствие, а не причину.
 
 
 
#26
24.06.2016 13:05:37
Юрий М, додумался я все таки и справился
спасибо
Код
Range("J2:J1000").Replace "#N/A", ""
 
 
 
#27
24.06.2016 13:06:26
Цитата
Юрий М написал: устранять следствие, а не причину
это я не знаю почему так, в чем причина
 
 
 
#28
24.06.2016 13:09:14
Так попробуйте найти: пройдите процедуру пошагово (F8) или поставьте точку останова на той строке кода, на которой происходит эта ошибка и проанализируйте состояние переменных.
 
 
 
#29
24.06.2016 13:19:21
Цитата
Юрий М написал:
пошагово (F8) или поставьте точку
мне кажется настолько далеко мои знания не затронуты, буду месяц так искать) пока пойму, где причина
на выходных может и попробую, спасибо
Изменено: next777pro - 24.06.2016 13:20:36
 
 
 
#30
24.06.2016 13:28:43
Почитайте эту статью (отлов ошибок и отладка кода).
 
 
 
Страницы: 1 2 След.
Наверх