Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск пропущенных чисел.
 
#1
26.10.2020 18:09:49
В столбце А записаны числа от 1 до 1000 с произвольными пропусками. За одну формулу, вывести в столбец В все пропущенные значения. Помогите сделать, пожалуйста, ничего не получается.
 
 
 
#2
26.10.2020 18:15:47
Цитата
Андрей Картошкин: ничего не получается
не видно, чтобы вы пытались…
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#3
26.10.2020 18:24:33
Пробовал в гугл таблицах вот такое
=arrayformula(ЕСЛИ((arrayformula(A2:A-A1:A))>2;ЕСЛИ(arrayformula(A2:A-A1:A)>2;SEQUENCE(arrayformula(A2+A1+1);1;arrayformula(A1:A+1);1);0);ЕСЛИ((arrayformula(A2:A-A1:A))>1;arrayformula(A1:A+1);0)))

И различные способы предложенные в интернете для Excel, но ничего не работает.
Изменено: Андрей Картошкин - 26.10.2020 18:26:04
 
 
 
#4
26.10.2020 18:37:44
Можно макросом сделать
 
 
 
#5
26.10.2020 18:39:40
Макросом очень хорошая идея, но к большому сожалению требуют именно формулой((
 
 
 
#6
26.10.2020 18:42:03
Цитата
Андрей Картошкин написал:
требуют именно формулой
версия эксель какая?
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#7
26.10.2020 18:44:09
2019
Или в google sheets
Изменено: Андрей Картошкин - 26.10.2020 18:45:08
 
 
 
#8
26.10.2020 18:53:25
=НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ($A$1:$A$9;СТРОКА(A1:ИНДЕКС(A:A;МАКС($A$1:$A$9))))=0;СТРОКА(A1:ИНДЕКС(A:A;МАКС($A$1:$A$9))));СТРОКА(A1))
Формула массива, ввод тремя клавишами
 
 
 
#9
26.10.2020 18:53:33
ну можно так
=IFERROR(SMALL(IF(ISNA(MATCH(ROW(INDEX(A:A;MIN(A:A)):INDEX(A:A;MAX(A:A)));A:A;));ROW(INDEX(A:A;MIN(A:A)):INDEX(A:A;MAX(A:A))));ROW(A1));"")
По вопросам из тем форума, личку не читаю.
 
 
 
#10
26.10.2020 19:14:49
Эти формулы работают, но есть вариант, чтобы не копировать эту формулу в каждую ячейку столбца или растягивать, а так, чтобы ввести в одну клетку, а все значения автоматически выводились в столбец?
 
 
 
#11
26.10.2020 19:14:59
если именно одной формулой, то
Код
=ФИЛЬТР(ПОСЛЕД(МАКС(A1:A9));ЕНД(ПОИСКПОЗ(ПОСЛЕД(МАКС(A1:A9));A1:A9;)))
но это 365, а не 2019; если же формулу можно протягивать - то варианты предложены выше
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
#12
26.10.2020 20:47:08

Вот еще интересный вариант, но, правда, тоже макросами (. Что делать: откройте этот файл, разрешите макросы, сверните файл. Перейдите в книгу, где нужно работать. Нажмите Ctrl+Q. Следуйте инструкциям.

Правда здесь неудобно то, что если вы добавите чисел в диапазон с пропущенными числами, то придется заново макрос запускать. Хотя можно написать макрос, который будет запускаться сам при изменении значений в определенном диапазоне)
 
 
 
#13
26.10.2020 20:54:28
Цитата
rud.666 написал:
Вот еще интересный вариант
По вопросам из тем форума, личку не читаю.
 
 
 
#14
26.10.2020 21:16:59
отличный макрос. одно неудобство, если хоть что-то поменяется - нужно переписывать
но в целом - интересный вариант
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#15
26.10.2020 21:17:52
БМВ, Ігор Гончаренко,  :D  

пусть еще будет интересный вариант
Код
Sub ads()
Dim i As Long, lr As Long, arr, cell As Range
lr = Cells(Rows.Count, 1).End(xlUp).Row
k = 0
Z = Application.WorksheetFunction.Max(Range("A1:A" & lr))
ReDim arr(Z - lr, 0)
For i = 1 To Z
    Set cell = Range("A1:A" & lr).Find(What:=i, LookIn:=xlFormulas, LookAt:=xlWhole)
    If cell Is Nothing Then
        arr(k, 0) = i
        k = k + 1
    End If
Next i
Range("B1:B" & UBound(arr)) = arr
End Sub
Изменено: Mershik - 26.10.2020 21:30:07
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#16
27.10.2020 00:43:21
в Гуглах:
Код
=FILTER(ARRAYFORMULA(СТРОКА(A1:A1000));ARRAYFORMULA(ЕНД(ПОИСКПОЗ(СТРОКА(A1:A1000);A1:A9;0))))
Соблюдение правил форума не освобождает от модераторского произвола
 
 
 
Страницы: 1
Наверх