| Вопрос: Удаления строки по шаблону | Добавлено: 14.11.06 11:27 |
Автор вопроса:  ddv_ddv
|
|
Подскажите плиз,
Sub MyMacros1() Dim NOMER1 As String, NOMER2 As String, Inom1 As String, k As Long, i As Long Inom1 = Sheets("Лист1").Columns(25).Rows(65536).End(xlUp).Row 'k = 4 For i = 1 To Inom1 NOMER1 = Sheets("Лист1").Range("Y" & i).Value NOMER2 = Left(NOMER1, 21) Sheets("Лист1").Range("Y" & i).Value = NOMER2 If NOMER2 <> "стр:ПТС 63 ?? ??????" Then ??? вот что сюда надо вставить чтоб удалялось то что не соответствует шаблону End If Next i End Sub |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  ddv_ddv Вопросов: 2 Ответов: 3 |
Профиль | | #1 | Добавлено: 15.11.06 10:19 |
Знатоки подскажите пжлст  (
Как удалять в строке все за исключением записей подобных шаблону |
||
|
Номер ответа: 2 Автор ответа:  Alex ICQ: no Вопросов: 3 Ответов: 13 |
Web-сайт: Профиль | | #2 | Добавлено: 21.12.06 09:46 |
|
Sub DCel()
'поиск строки, сравнение и удаление не соответсв. стр. Dim str1 As String Dim a As Integer Range("A1"  .Select
a = 1 Do While ActiveCell.Value <> 0 str1 = ActiveCell.Value '************************************* If str1 <> "Alex" Then ActiveCell.EntireRow.Delete ' удаляет строку, для удаления значения заменить Delete на Clear '************************************* Else End If a = a + 1 Cells(a, 1).Select ' переход на следующую ячейку Loop End Sub |
||
|
Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 21.12.06 21:13 |
|
or .. Sheets("Лист1" .Range("Y" & i).Value = ""
? |
||
Страница: 1 |