как макросом убрать повторяющиеся строки EXCEL / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как макросом убрать повторяющиеся строки EXCEL

14 сообщений из 89, страница 4 из 4

все

как макросом убрать повторяющиеся строки EXCEL

#37464324

kuklp

Гость

ё,

Код: plaintext

if left("http://www.sait.ru",  7 ) = "http://"

- оно всегда будет равно. Предлагаю так:

Код: plaintext

1.
2.
3.
4.
5.

Public Sub www()
    Dim c As Range
    For Each c In Selection.Cells
        c.Hyperlinks( 1 ).Address = Replace(c.Hyperlinks( 1 ).Address, "http://www", "www")
    Next
End Sub

...

Рейтинг:

0 / 0

02.10.2011, 15:08

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#37464326

kuklp

Гость

R Dm

Код: plaintext

?replace("http://www.sait.ru","http://","")

Дим, не ты ли?:-)

...

Рейтинг:

0 / 0

02.10.2011, 15:10

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#37464337

kuklp

Гость

Вообще-то я был невнимателен, когда повелся. Как топик " как макросом убрать повторяющиеся строки EXCEL " соотносится с последним вопросом? Ждем модеров.

...

Рейтинг:

0 / 0

02.10.2011, 15:20

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#37464415

Hugo121

Гость

Сергей, xavi в как макросом убрать повторяющиеся строки EXCEL писал про удаление повторяющихся.

xavi, Вам нужно строки удалить, или отобрать данные строк с уникальным началом?
Если второе, то быстро это можно сделать с помощью словаря и массивов.
Берём данные в массив, потом с помощью словаря отбираем в другой массив данные уникальных строк, выгружаем результат.
Так будет всего один проход по данным, и не будет работы с ячейками листа, что всегда медленно.
Если всё же нужно удалять строки листа - то тоже быстрее собрать список удяляемых строк по схеме массив-словарь, затем удалять сразу группами по списку.
Конечно, будет работать и перебор ячеек листа цикл в цикле, но медленно.
Можете сделать руками - отобрать формулой в свободный столбец начальные символы строк, потом "расширенный фильтр" или "удалить дубликаты" по этому столобцу.

...

Рейтинг:

0 / 0

02.10.2011, 18:18

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#37464441

kuklp

Гость

Игорь и как топик соотносится с вопросом:автор"А теперь возник такой вопрос...Нужно, чтоб адрес, содержащий http:// редактировался удалением этого http://" ? Или я чего недопонял?

...

Рейтинг:

0 / 0

02.10.2011, 19:28

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#37464458

Hugo121

Гость

Сергей, действительно продолжение уже из "другой оперы", согласен.

...

Рейтинг:

0 / 0

02.10.2011, 19:51

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#37464512

R Dmitry

Участник

Откуда: Минск

Сообщения: 395

Рейтинг: 0 / 0

kuklp,

То был я :)

...

Рейтинг:

0 / 0

02.10.2011, 21:29

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#37904954

DerekAshfield

Гость

Ребята нужна помощь, сам я в этом нуб.... Мне нужен макрос, который бы проверял два разных столбца, и во втором столбце удалял те ячейки которые есть в первом! Те в первом столбце например числа 33, 11, 76, а во втором 11, 24, 33 - 11 и 33 он бы удалил!!! И собственно вкратце как этот макрос запихнуть в эксель

...

Рейтинг:

0 / 0

05.08.2012, 20:16

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#37904980

Казанский

Гость

Можно так

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

Sub bb()
With Range("C1:C" & Cells(Rows.Count, "B").End(xlUp).Row)
    .Formula = "=1/(1-ISNUMBER(MATCH(B1,A:A,)))"
    .SpecialCells(xlCellTypeFormulas, xlErrors).Offset(, -1).Delete xlUp
    .Clear
End With
End Sub

А как этот макрос запихнуть в эксель - терзайте F1, гугл или букварь.

...

Рейтинг:

0 / 0

05.08.2012, 21:23

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#38116708

Dariloff

Гость

Здравствуйте!
Не въезжал в макросы экселя т.к. только что неделю на python убил.
Не подскажете макросик.
Есть база из 3000 строк. Надо их рассортировать так, чтобы в пределах 3х соседних строк не было повторений.
Спасибо!

...

Рейтинг:

0 / 0

20.01.2013, 02:19

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#38117014

Казанский

Гость

Приложите пример из 50 строк.

...

Рейтинг:

0 / 0

20.01.2013, 19:28

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#38117099

AndreTM

Участник

Откуда: Где-то в вологодских лесах...

Сообщения: 6 316

Рейтинг: 0 / 0

Dariloff,КазанскийПриложите пример из 50 строк.Причем пример с исходными данными и тем, что хотите получить.

...

Рейтинг:

0 / 0

20.01.2013, 21:49

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

как макросом убрать повторяющиеся строки EXCEL

#38644961

kolyan2288

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Sub DeleteDubls()
Const intDataCol = 1
Const intMaxRow = 12
    Dim i%, j%
    Dim strValue1$, strValue2$
    For i = 2 To intMaxRow - 1
        strValue1 = Trim(Cells(i, intDataCol))
        For j = i + 1 To intMaxRow
            strValue2 = Trim(Cells(j, intDataCol))
        
              If StrComp(strValue1, strValue2, vbTextCompare) = 0 Then
                 Cells(j, 0 + intDataCol) = " "
              End If

        Next
    Next
End Sub

напишу в этой теме, задача: стереть значение в ячейке, исправил код работает т е стирает одинаковые значения в столбце, не получается реализовать стирание целой строки где затерты столбцы, помогите

...

Рейтинг:

0 / 0

19.05.2014, 11:27

| Ответить | Цитировать | Написать

как макросом убрать повторяющиеся строки EXCEL

#38645328

kolyan2288

Гость

решено

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Sub DeleteDubls()
Const intDataCol = 4


    Dim i%, j%, kRow, kCol
    Dim strValue1$, strValue2$
   
   kRow = ActiveSheet.UsedRange.Rows.Count
   
   kCol = ActiveSheet.UsedRange.Columns.Count

    For i = 2 To kCol - 1
        strValue1 = Trim(Cells(i, intDataCol))
        For j = i + 1 To kCol
            strValue2 = Trim(Cells(j, intDataCol))
            If StrComp(strValue1, strValue2, vbTextCompare) = 0 Then
                Range(Cells(j, 0 + intDataCol), Cells(j, kCol)).Value = ""
            End If
        Next
    Next
    


End Sub

...

Рейтинг:

0 / 0

19.05.2014, 15:36

| Ответить | Цитировать | Написать

14 сообщений из 89, страница 4 из 4

все

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как макросом убрать повторяющиеся строки EXCEL

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=37464324&tid=2174023]:	0ms
get settings:	9ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	33ms
get topic data:	9ms
get forum data:	3ms
get page messages:	45ms
get tp. blocked users:	1ms
others:	291ms

total:	408ms