Количество символов, Регистр, удаление строки.

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

Количество символов, Регистр, удаление строки. (Макросы/Sub)

Gorime

Дата: Понедельник, 06.10.2014, 21:47 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 1

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

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

Excel 2007

Здравствуйте, уважаемые форумчане.
Опущу предисловие и перейду сразу к задаче, с которой я самостоятельно не справлюсь.
Есть таблица из двух столбцов.
Мне нужно сделать три вида удаления строк.

С первыми двумя пунктами разобрался самостоятельно:)
3 - Если во втором столбце нет заглавной буквы, хотя бы одной(в любой части слова), то строка должна быть удалена.
Буквы в таблице написаны латиницей.
В Екселе я не очень, поэтому не знаю возможно ли вообще выполнить третий пункт, надеюсь на вашу помощь и заранее благодарю.

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

Сообщение отредактировал Gorime - Вторник, 07.10.2014, 15:42

Ответить

UltrasRW

Дата: Среда, 08.10.2014, 16:59 | Сообщение № 2

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

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

Сообщений: 13

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

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

счеты деревянные

Gorime, добрый вечер!

[vba]

Код

Sub test()
Dim i As Long
Dim str As String
Dim upperCh As Boolean

str = "test"
'проверяем каждую букву в слове
For i = 1 To Len(str)
    If Mid(str, i, 1) Like "[A-Z]" Then
     'символ верхнего регистра, ставим флаг в true и выходим из цикла
     upperCh = True
     Exit For
    End If
Next i

'если флаг upperCh = False, т.е. не нашли заглавную букву в слове, то удаляем строку
If Not upperCh Then
    'здесь пишем код для удаления строки
End If

End Sub

[/vba]