Дело в том, что надо обработать огромную таблицу. Проще всего было бы написать скрипт, но с VB я не знаком (хотя сейчас начал разбираться). Было бы просто замечательно, если бы кто-нибудь помог. Дело вот в чем. Допустим есть данные такой структуры (4 столбца):

Город1 Данные Данные Данные
Город2 Данные Данные Данные
Город2 Данные Данные Данные
Город3 Данные Данные Данные


Надо удалить из текущей книги строки с повторяющимися (именно подряд идущими) названиями городов и перенести их в другую книгу, чтобы в результате получилось:

Город1 Данные Данные Данные
Город3 Данные Данные Данные

для одной книги и

Город2 Данные Данные Данные
Город2 Данные Данные Данные

для второй книги.

Перенесено из VB6.

Справился сам. Хотя отродясь ничего не писал на VB. Секрет успеха:MSDN + хелп по VB для оффиса

А у меня вот такой код удался.

Идет по столбцу A

Staruha, у меня тоже все идет по столбцу А, но только записей там почти 50000

Ну дк поставь в коде L=50000 и смотри как кино.
Этот код хорош тем ,что сортировать не надо.

А у меня вот такой код удался.
Выделить всёкод Visual Basic
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
    
 Private Sub CommandButton2_Click()
Dim xd As String
Dim xxd As String
Dim L As Integer
L = 3000
For x = 1 To L
 xd = Cells(x, 1)
 For xx = x + 1 To L
  xxd = Cells(xx, 1)
 If x = L Then
Exit Sub
ElseIf xd = xxd Then
Rows(xx).Delete
  xx = xx - 1
L = L - 1
 End If
 Next
 xx = x + 1
Next
End Sub

Идет по столбцу A

а как по столбцу И сделать то же самое????????? помогите?

Модератор: Пожалуйста, один топик - один вопрос.