Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как выделить дубликаты в столбце? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как выделить дубликаты в столбце?
skymurashkasky Дата: Вторник, 29.10.2024, 11:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

2010
Здравствуйте всем, подскажите пожалуйста, буду очень благодарен вам.
В чем дело: Нужен макрос, который с помощью кнопки в пользовательском интерфейсе, можно будет выбрать файл и в этом файле будет искать во всём столбце (L) на всех листах книги, дубликаты и выделять их.
Название столбцов могут меняться, кол-во строк разное и названия листов так же могут меняться и в столбце есть множество пустых строк, а так-же название файлов тоже разные.

Что должно получиться: Кнопка при нажатии, нужно выбрать файл и в нём на всех листах будут выделяться дубликаты.

Для выбора файла, я написал код. А вот чтобы выделялись дубликаты я никак не получается

Private Sub CommandButton6_Click()

On Error Resume Next
Dim FilePath As String
FilePath = Application.GetOpenFilename()
Workbooks.Open (FilePath)

Файл приложить не могу, но я надеюсь вы поняли о чём я написал... deal
Заранее большое спасибо!


Сообщение отредактировал skymurashkasky - Вторник, 29.10.2024, 13:47
 
Ответить
СообщениеЗдравствуйте всем, подскажите пожалуйста, буду очень благодарен вам.
В чем дело: Нужен макрос, который с помощью кнопки в пользовательском интерфейсе, можно будет выбрать файл и в этом файле будет искать во всём столбце (L) на всех листах книги, дубликаты и выделять их.
Название столбцов могут меняться, кол-во строк разное и названия листов так же могут меняться и в столбце есть множество пустых строк, а так-же название файлов тоже разные.

Что должно получиться: Кнопка при нажатии, нужно выбрать файл и в нём на всех листах будут выделяться дубликаты.

Для выбора файла, я написал код. А вот чтобы выделялись дубликаты я никак не получается

Private Sub CommandButton6_Click()

On Error Resume Next
Dim FilePath As String
FilePath = Application.GetOpenFilename()
Workbooks.Open (FilePath)

Файл приложить не могу, но я надеюсь вы поняли о чём я написал... deal
Заранее большое спасибо!

Автор - skymurashkasky
Дата добавления - 29.10.2024 в 11:11
MikeVol Дата: Вторник, 29.10.2024, 16:38 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 373
Репутация: 79 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
М-да, и хоть бы что...


Ученик.
Одесса - Украина
 
Ответить
СообщениеМ-да, и хоть бы что...

Автор - MikeVol
Дата добавления - 29.10.2024 в 16:38
MikeVol Дата: Среда, 30.10.2024, 21:06 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 373
Репутация: 79 ±
Замечаний: 0% ±

MSO LTSC 2021 EN
skymurashkasky, Так что там насчёт правил форума, соседнего? Что-то вы потерялись вообще!


Ученик.
Одесса - Украина
 
Ответить
Сообщениеskymurashkasky, Так что там насчёт правил форума, соседнего? Что-то вы потерялись вообще!

Автор - MikeVol
Дата добавления - 30.10.2024 в 21:06
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!