Полезные советы по работе с компьютером

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
Макрос для стирния одинаковых строк в Экселе
Stas23
сообщение 29.12.2004, 20:35
Сообщение #1


Звание: -


Группа: Пользователи
Сообщений: 1
Регистрация: 29.12.2004
Пользователь №: 414



У меня проблемка есть…может поможете!

Мне надо, чтоб макрос удалял одинаковые строчки в Экселе. Т.е. стирал дублирующую информацию.
А если отличается на одну ячейку, то метил всё строчку цветом.
Но самое главное, чтоб удалял одинаковые.

Как это можно сделать?
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Mrakk
сообщение 30.1.2006, 22:36
Сообщение #2


Звание: -


Группа: Пользователи
Сообщений: 1
Регистрация: 30.1.2006
Пользователь №: 652



1. Надо отсортировать стобец в порядке возрастания.
2. Лист должен называться "1", либо исправляй макрос.
3. Список должен начинаться с ячейки A1, либо правь макрос.
4. Сам макрос:

Sub GoodRemoverDuplicated()

Worksheets("1").Range("A1").Sort key1:=Worksheets("1").Range("A1")
Set currentCell = Worksheets("1").Range("A1")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop
End Sub
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



Текстовая версия Сейчас: 19.8.2017, 3:54