| Вопрос: vb - exel | Добавлено: 24.11.06 17:29 |
Автор вопроса:  Prada
|
|
Добрый день!
Подскажите, пожалуйста, как решить задачу в ексель - возможно, средствами vb - есть список данных на одном листе. Необходимо от 6-го до 20-го символа первой ячейки сравнить каждую строчку, и совпадающие удалить или выделить другим цветом. Буду благодарна за совет. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  -АлександР- Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #1 | Добавлено: 25.11.06 10:52 |
|
Instr - для сравнения строк
Mid - для выбора с 6 до 20 символа For Each или For ... Next - циклы для работы со строками, чтобы каждую не прописывать Понятно? 
|
||
|
Номер ответа: 2 Автор ответа: Шпион ICQ: 250543104 Вопросов: 13 Ответов: 118 |
Профиль | | #2 | Добавлено: 25.11.06 12:51 |
|
Мне так видится:
Dim a As String Dim i As Long Dim stri As String a=Mid(Range("A1" ,6,14)
i=1 Do i=i+1 stri=ltrim(str(i)) If Instr(1,Range("A" & stri), a)>0 Then Rows(stri & ":" & stri ).Select Selection.Delete Shift:=xlUp i=i-1 End If Loop While Not Range("A" & stri) = "" |
||
|
Номер ответа: 3 Автор ответа: Prada Вопросов: 1 Ответов: 2 |
Профиль | | #3 | Добавлено: 27.11.06 19:25 |
| нет) | ||
|
Номер ответа: 4 Автор ответа: PradaВопросов: 1 Ответов: 2 |
Профиль | | #4 | Добавлено: 27.11.06 19:25 |
| спасибо!, попробую с этим кодом | ||
Страница: 1 |