Через данные - фильтр - автофильтр? Дальше выбираете значение и удаляете дубликаты.  
Или принципиально макросом надо?

ок, значит макросом.  
 
...Нужно удалить одну из двух повторяющихся строк. Критерием отбора является столбец «К»....  
 
Как быть, если строк одинаковых по столбцу К больше 2? 3? 8?  
Надо оставить только одну? Или только одну удалить?

Я пользуюсь таким дресним кодом (сейчас глянул - причесать вероятно пора...).  
Но работает. Делает бекап перед изменением.  
Сперва лист отсортируйте по этой колонке.  
 
Sub DelDuplicatesAfterSorted()  
Dim del As Long  
Dim x As Integer  
'Dim x As String  
   If MsgBox("All Changes Will Be Saved!" & Chr(13) & "Ispected Active Column." & Chr(13) & "Continue?", vbExclamation + vbOKCancel, "Warning!") = vbCancel Then  
    Exit Sub  
    End If  
       
WbPth = ActiveWorkbook.Path  
WbName = ActiveWorkbook.Name  
'x = (InputBox("What Column Inspected?", , 4)) * 1  
'x = InputBox("What Column Inspected? (Letter)", "x", "A", 1500, 2000)  
x = ActiveCell.Column  
Application.ScreenUpdating = False  
 
strDate = Format(Now, "yyyy.mm.dd-hh.mm.ss")  
Set fs = CreateObject("Scripting.FileSystemObject")  
If fs.FolderExists("c:\Temp\") = False Then MkDir "c:\Temp"  
 
                ActiveWorkbook.SaveAs Filename:="c:\Temp\BackupBeforeDelDuplicates." & strDate & "." & ActiveWorkbook.Name, _  
                FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=True, CreateBackup:=False  
 
Application.DisplayAlerts = False  
 
                 ActiveWorkbook.SaveAs Filename:=WbPth & "\" & WbName, _  
                FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False  
                 
Application.DisplayAlerts = False  
 
With ActiveSheet.UsedRange  
 For Each cc In .Columns(x).Cells  
cikl:  
   If Cells(cc.Row, x).Value = Cells(cc.Row + 1, x).Value _  
   And Cells(cc.Row + 1, x).Value <> "" Then  
       Application.StatusBar = " Working on  " & cc.Row & " Row" ' визуализация работы  
       Rows(cc.Row + 1).EntireRow.Delete Shift:=xlUp  
       del = del + 1  
      ' Rows(cc.Row + 1).EntireRow.Hidden = True  
                         
      GoTo cikl  
   End If  
 Next  
End With  
 
Application.StatusBar = False 'сбрасываем визуализацию работы  
Application.ScreenUpdating = True  
 
MsgBox "Ok! Deleted " & del & " Rows!"  
 
End Sub

В заголовке столбца "К" давим кнопку.  
Текст макроса - в модуле. Ну и тут:  
 
Sub Muhan()    
Dim lngI As Long  
For lngI = Cells(Rows.Count, 11).End(xlUp).Row To 2 Step -1  
   If Cells(lngI, 11).Value = Cells(lngI - 1, 11).Value Then  
       Rows(lngI).Delete Shift:=xlUp  
   End If  
Next lngI  
 
End Sub

{quote}{login=}{date=01.03.2011 01:16}{thema=}{post}В заголовке столбца "К" давим кнопку.  
Текст макроса - в модуле. Ну и тут:  
 
Sub Muhan()    
Dim lngI As Long  
For lngI = Cells(Rows.Count, 11).End(xlUp).Row To 2 Step -1  
   If Cells(lngI, 11).Value = Cells(lngI - 1, 11).Value Then  
       Rows(lngI).Delete Shift:=xlUp  
   End If  
Next lngI  
 
End Sub{/post}{/quote}  
 
 
Спасибо Большое Вам  
Проблема решена. Спасибо всем!  
Вопрос снят.

В Вашем коде нельзя.  
Вы используете "для каждого", но в процессе потихоньку эти "каждые" удаляете. Я вообще с трудом представляю, что там думает по этому поводу код...

Или так  
Sub DelRowDuble()  
Dim i As Long  
Dim b As Long  
b = Cells(Rows.Count, 11).End(xlUp).Row  
Application.ScreenUpdating = False  
For i = b To 2 Step -1  
       If Cells(i, 11).Value = Cells(i - 1, 11).Value Then  
       If Cells(i, 11).Value <> "" Then Rows(i).Delete  
       End If  
       Next i  
Application.ScreenUpdating = False  
End Sub

я не RAN, но ответ - ДА.

подскажите по этой же теме, подошел вот этот макрос:  
Sub Muhan()    
Dim lngI As Long  
For lngI = Cells(Rows.Count, 11).End(xlUp).Row To 2 Step -1  
If Cells(lngI, 11).Value = Cells(lngI - 1, 11).Value Then  
Rows(lngI).Delete Shift:=xlUp  
End If  
Next lngI  
 
End Sub  
 
но это если на странице одна таблица, а если на странице несколько таблиц и нужно в каждой удалить повторяющуюся строку, то что нужно переделать в макросе?  
Спасибо.

переделывать нужно многое, т.к. макрос удаляет строки с листа  
Вариант - таблицы каждую на свой лист и к ним макрос применять.  
Таблицы должны быть единообразные.  
Или кладите пример - вот что есть, вот так хочу - будем думать...

не, на разные листы нельзя, нужно обязательно на одном, вот пример приложила:  
в таблице 1 нужно удалить строки с повторяющимися значениями в столбцах, ОБЯЗАТЕЛЬНО, и J и К, аналогично в таблице 2 столбцы O и P и в таблице 3 E и F. Количество строк в таблицах постоянное. Спасибо.

Еще вдогонку вопрос - в таблицах данные вразнобой стоят или дубликаты друг за другом?

количество строк в таблицах переменное/постоянное важно, т.к. в вашем случае придется запускать 3 цикла по удалению дубликатов - из таблицы 1 по своему условию, из таблицы 2 - по своему условию, из таблицы 3 - по своему.  
Соответственно для каждого цикла надо определять с какими строками ему работать, чтобы не было ситуации, когда проверка происходит по значению не в тех столбцах.  
По вопросу сортировки данных: идея макроса такая - берется значение из последней строки таблицы в нужных столбцах и сравнивается со значением из предпоследней строки. Если совпадают - последнюю строку удаляем. Если НЕ совпадают - берем предпоследнюю строку и сравниваем с пред-пред-последней и т.д.  
Теперь представьте ситуацию, когда дубликаты расположены НЕ ПОДРЯД в таблице.  
Поэтому если значения подрряд - все хорошо. Если нет, то надо  либо сортировать сначала, потом удалять, либо перекраивать проверку на совпадения.

{quote}{login=}{date=19.08.2011 12:47}{thema=}{post}По вопросу сортировки данных: идея макроса такая - берется значение из последней строки таблицы в нужных столбцах и сравнивается со значением из предпоследней строки. Если совпадают - последнюю строку удаляем. Если НЕ совпадают - берем предпоследнюю строку и сравниваем с пред-пред-последней и т.д.  
Теперь представьте ситуацию, когда дубликаты расположены НЕ ПОДРЯД в таблице.  
Поэтому если значения подрряд - все хорошо. Если нет, то надо  либо сортировать сначала, потом удалять, либо перекраивать проверку на совпадения.{/post}{/quote}  
 
нет строки расположены не подряд, одна может быть вначале, другая в конце таблицы