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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как отобразить в отдельном столбце пропущенные числа? (Макросы/Sub)
Как отобразить в отдельном столбце пропущенные числа?
TotalJeka Дата: Четверг, 23.01.2020, 15:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Мне не помогли ни здесь ни здесь. Может на этом форуме есть люди разумные. Задача несложная, мне надо помочь отобразить в отдельном столбце пропущенные числа. Если кто-нибудь мне поможет с решением моей проблемы, то я подарю ему(ей) свою электронную книгу "Остросюжетная Коллекция Анекдотов" - это чтобы мотивации добавить тому, кто займется этим делом.

Вот файл, в котором собраны числа с пропусками. Файл большой, чисел 36020, поэтому выложил на своем сайте.

Ссылка удалена. Нарушение Правил форума.
[admin]Достаточно сохранить в формате .xlsx и файл прикрепится к сообщению[/admin]


Сообщение отредактировал Pelena - Четверг, 23.01.2020, 16:07
 
Ответить
СообщениеМне не помогли ни здесь ни здесь. Может на этом форуме есть люди разумные. Задача несложная, мне надо помочь отобразить в отдельном столбце пропущенные числа. Если кто-нибудь мне поможет с решением моей проблемы, то я подарю ему(ей) свою электронную книгу "Остросюжетная Коллекция Анекдотов" - это чтобы мотивации добавить тому, кто займется этим делом.

Вот файл, в котором собраны числа с пропусками. Файл большой, чисел 36020, поэтому выложил на своем сайте.

Ссылка удалена. Нарушение Правил форума.
[admin]Достаточно сохранить в формате .xlsx и файл прикрепится к сообщению[/admin]

Автор - TotalJeka
Дата добавления - 23.01.2020 в 15:54
TotalJeka Дата: Четверг, 23.01.2020, 16:10 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Ссылка удалена. Нарушение Правил форума.
Admin:
Достаточно сохранить в формате .xlsx и файл прикрепится к сообщению.
У меня файл 1,5 метра весит.
К сообщению приложен файл: 6363498.zip(35.8 Kb)
 
Ответить
СообщениеСсылка удалена. Нарушение Правил форума.
Admin:
Достаточно сохранить в формате .xlsx и файл прикрепится к сообщению.
У меня файл 1,5 метра весит.

Автор - TotalJeka
Дата добавления - 23.01.2020 в 16:10
Pelena Дата: Четверг, 23.01.2020, 17:26 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 15242
Репутация: 3340 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Посмотрите, так хотели?
К сообщению приложен файл: 1598626.xlsb(189.4 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПосмотрите, так хотели?

Автор - Pelena
Дата добавления - 23.01.2020 в 17:26
TotalJeka Дата: Четверг, 23.01.2020, 17:58 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Public Sub GetNonExistedNumbers()
Dim lRow As Long, vData() As Variant
Dim vOut() As Long, i As Long
Dim vCheck() As Long, pSheet As Worksheet
Dim vMin As Long, vMax As Long
Set pSheet = ActiveSheet
lRow = pSheet.Cells(pSheet.Rows.Count, 1).End(xlUp).Row
vData = pSheet.Range(pSheet.Cells(1, 1), pSheet.Cells(lRow, 1)).Value
vMin = Application.Min(vData)
vMax = Application.Max(vData)
ReDim vCheck(vMin To vMax)
For i = 1 To UBound(vData)
vCheck(vData(i, 1)) = 1
Next
ReDim vOut(1 To UBound(vData), 1 To 1)
lRow = 0
For i = vMin To vMax
If vCheck(i) = 0 Then
lRow = lRow + 1
vOut(lRow, 1) = i
End If
Next
Set pSheet = ActiveWorkbook.Worksheets.Add
pSheet.Cells(1, 1).Resize(lRow, 1).Value = vOut
End Sub
 
Ответить
СообщениеPublic Sub GetNonExistedNumbers()
Dim lRow As Long, vData() As Variant
Dim vOut() As Long, i As Long
Dim vCheck() As Long, pSheet As Worksheet
Dim vMin As Long, vMax As Long
Set pSheet = ActiveSheet
lRow = pSheet.Cells(pSheet.Rows.Count, 1).End(xlUp).Row
vData = pSheet.Range(pSheet.Cells(1, 1), pSheet.Cells(lRow, 1)).Value
vMin = Application.Min(vData)
vMax = Application.Max(vData)
ReDim vCheck(vMin To vMax)
For i = 1 To UBound(vData)
vCheck(vData(i, 1)) = 1
Next
ReDim vOut(1 To UBound(vData), 1 To 1)
lRow = 0
For i = vMin To vMax
If vCheck(i) = 0 Then
lRow = lRow + 1
vOut(lRow, 1) = i
End If
Next
Set pSheet = ActiveWorkbook.Worksheets.Add
pSheet.Cells(1, 1).Resize(lRow, 1).Value = vOut
End Sub

Автор - TotalJeka
Дата добавления - 23.01.2020 в 17:58
TotalJeka Дата: Четверг, 23.01.2020, 17:59 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Мне на одном форуме один очень хороший человек помог, а то что у вас я не знаю, навряд ли такой же макрос
 
Ответить
СообщениеМне на одном форуме один очень хороший человек помог, а то что у вас я не знаю, навряд ли такой же макрос

Автор - TotalJeka
Дата добавления - 23.01.2020 в 17:59
RAN Дата: Четверг, 23.01.2020, 20:00 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5252
Репутация: 1054 ±
Замечаний: 0% ±

2010
Мне на одном форуме один очень хороший человек помог

Цитата
Дорогой Андрей VG , выражаю вам искреннюю благодарность за оказанную помощь

Он же не может отвечать вам на двух форумах сразу. lol lol
TotalJeka, а это весьма пованивает
а то что у вас я не знаю, навряд ли такой же макрос


Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Четверг, 23.01.2020, 20:02
 
Ответить
Сообщение
Мне на одном форуме один очень хороший человек помог

Цитата
Дорогой Андрей VG , выражаю вам искреннюю благодарность за оказанную помощь

Он же не может отвечать вам на двух форумах сразу. lol lol
TotalJeka, а это весьма пованивает
а то что у вас я не знаю, навряд ли такой же макрос

Автор - RAN
Дата добавления - 23.01.2020 в 20:00
Pelena Дата: Четверг, 23.01.2020, 20:08 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 15242
Репутация: 3340 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
навряд ли такой же макрос
Это да, у меня совсем другой макрос :D
А Вам замечание за повторное нарушение Правил форума (п.3 код без тегов)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
навряд ли такой же макрос
Это да, у меня совсем другой макрос :D
А Вам замечание за повторное нарушение Правил форума (п.3 код без тегов)

Автор - Pelena
Дата добавления - 23.01.2020 в 20:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как отобразить в отдельном столбце пропущенные числа? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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