Удаление лишних значений с ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление лишних значений с ячейки (Макросы/Sub)

reventon9

Дата: Четверг, 11.08.2016, 07:36 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Здравствуйте!

Помогите, пожалуйста, удалить(с помощью макроса) лишние значения(цифры) из ячейки.

Данные для удаления выделены красным.

Заранее спасибо...

К сообщению приложен файл: 7873162.xlsx (10.7 Kb)

Ответить

KuklP

Дата: Четверг, 11.08.2016, 08:40 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

[vba]

Код

Public Sub www(): [f:f].Replace Chr(10) & "*", "", xlPart: End Sub

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

reventon9

Дата: Четверг, 11.08.2016, 09:04 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Спасибо!

Ответить

reventon9

Дата: Пятница, 12.08.2016, 08:36 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Подскажите, пожалуйста, еще аналогичные макросы.... в этом же файле
Файл приложил, описание внутри, что нужно удалить выделил...

Заранее спасибо

К сообщению приложен файл: 6494818.xlsx (11.7 Kb)

Ответить

Karataev

Дата: Воскресенье, 14.08.2016, 10:16 | Сообщение № 5

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

Макрос удаляет:
1) в столбце "D" текст, который начинается с новой строки и строка начинается скобкой "("
2) в столбце "D" текст, который начинается с новой строки и строка начинается русскими символами "НР"
3) в столбце "F" весь текст, который начинается с новой строки

Что касается удаления после единиц измерения, то здесь нельзя предсказать, в каком виде будет единица измерения, поэтому нельзя, не видя всех возможных случаев, сделать код. Если опираться на файл пример из поста 4, то можно сделать макрос, который будет удалять весь текст после 2-го пробела. Но если ед измерения будет включать два пробела, то будет удалено нужное.

[vba]

Код

Sub Макрос()
    Columns("D").Replace What:=Chr(10) & "(*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("D").Replace What:=Chr(10) & "НР*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("F").Replace What:=Chr(10) & "*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

[/vba]

Сообщение отредактировал Karataev - Воскресенье, 14.08.2016, 13:34

Ответить

reventon9

Дата: Воскресенье, 14.08.2016, 10:57 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Спасибо!

По столбику Е, где единицы измерения, подскажите, пожалуйста, тогда макрос: удалять после 2-го пробела...

Ответить

Karataev

Дата: Воскресенье, 14.08.2016, 11:11 | Сообщение № 7

Группа: Проверенные

Ранг: Старожил

Сообщений: 1334

Репутация: 533 ±

Замечаний: 0% ±

Excel

[vba]

Код

Sub Макрос()

    Dim arr(), spl, lr As Long, i As Long

    Application.ScreenUpdating = False

    Columns("D").Replace What:=Chr(10) & "(*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("D").Replace What:=Chr(10) & "НР*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("F").Replace What:=Chr(10) & "*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

    lr = Columns("E").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    arr() = Range("E4:E" & lr).Value
    For i = 1 To UBound(arr)
        spl = Split(arr(i, 1), " ")
        If UBound(spl) > 0 Then
            arr(i, 1) = spl(0) & " " & spl(1)
        End If
    Next
    Range("E4").Resize(UBound(arr)).Value = arr()

    Application.ScreenUpdating = True

End Sub

[/vba]

Ответить

reventon9

Дата: Воскресенье, 14.08.2016, 11:33 | Сообщение № 8

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Спасибо!!!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление лишних значений с ячейки (Макросы/Sub)

Страница 1 из 1
1