Вопрос : Вопрос о 2003 vba XLS - уничтожьте двойной рядки

Hi - внутри первенствуйте 2003, котор я пытаюсь setup подводная лодка выполнит уничтожать двойной рядки.

I нашло сценарий vba образца получил меня после того как он начат - для этого полезно для уничтожать двойной рядки внутри первенствует но вс не выполняет я хочу мочь к do.

In своя присытствыющая форма (с некоторыми изменениями от меня), котор я имею ее главным образом работать но нужно адресовать эти детали:

1. Я хочу мочь сделать испытание instr для того чтобы определить колонку, котор я хочу использовать для двойной проверки - правой теперь он делал при я устанавливая ряд для того чтобы сказать «A1» как показан ниже, так, что колонка a будет использована -- но колонка может поменять - самое лучшее если я могу сделать испытание шнура по row1, то (имеет коллектор называет в ем, ищущ говорит «*SKU*» (специальные символы) в A1: AA1 - находите клетку и польза что клеткой установить колонку… например могла быть B1, etc. - но я не уверен как написать Кодего для выполнения that.

2. Если, то кажется, что будет пустыми рядками но они не реально… например говорят рядок 1-10 имеет видимые данные, но кто-то напечатало что-то на машинке в рядки 11, 12, тогда после того как я уничтожены ему, Кодий выбирают вверх гребут 11 и 12 как нужно обрабатывать - настолько возможно там испытание len сделанное на concantonation говорит первые 3 колонки каждого рядка (например len (a1+b2+c1) >0) для того чтобы увидеть если рядку нужно обрабатывать? вопросу будет я нужно точное возлагать надежды на сколько дубликаты потому что более последние процессы полагаются на этом для того чтобы обусловить что курс для того чтобы принять (например если ые дубликаты >100 делают это, то, в противном случае это)

3. Я хочу мочь увидеть результаты/деталь было уничтожено - я имейте установку сценария для того чтобы показать # рядков, котор оно уничтожило - видит result_sheet дно «. Ряд («number_rows_deleted»). Value = CStr (n)» - но хотел был деталь - покажите рядку самому - как последовательн напишите вниз рядки… те, что «dupkillerresult» плату в xls хранит - рядки 11/12 - если оно smogл написать номер рядка, имя платы, тогда деталь рядка…., то

PS - я отлично с фактом что когда дубликат, первым примером/рядком будут preserved.

thanks заранее для любой помощи! filename» class= >

 (169 KB) яваскрипт» href= " " attachmentDetails class= (тип архива детали) плата usa_data данным по образца установки платы >shows " описания " class=
>
class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
id= " codeSnippet823394 " class= " notpretty " >Public Sub DeleteDuplicateRows_usa 
 1 после этого
        Rng.Rows (r) .EntireRow.Delete
        N = N + 1
    Закончитесь если
Еще
    Если Application.WorksheetFunction.CountIf, то (Rng.Columns (1), v) > 1 после этого
        Rng.Rows (r) .EntireRow.Delete
        N = N + 1
    Закончитесь если
Закончитесь если
Следующий r

EndMacro:

Application.StatusBar = ложно
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Установите xlSheet_dupkillerresult = рабочий лист («dupkillerresult»)
xlSheet_dupkillerresult.Activate
xlSheet_dupkillerresult.Range («usa_count»). Значение = CStr (n)
Установите xlSheet_dupkillerresult = ничего
Рядки 'MsgBox «двойной уничтожили: » & CStr (n)

Подводная лодка конца
class=

Ответ : Вопрос о 2003 vba XLS - уничтожьте двойной рядки

Почему вы не имеете взгляд на addin Дэйв двойной мастерском.  Оно делает все вы спрашиваете:

http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/A_2123-Eliminating-duplicate-data-with-Duplicate-Master-V2.html
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us