Подсчет расстояния между аналогичными значениями по строкам с помощью excel-vba/udf

Question

У меня возникли проблемы с подсчетом расстояния между значениями, которые похожи, потому что в excel нет функции, которая могла бы достичь этого, и я имею дело с 2000 строками значений. Я бы предпочел excel-vba для этого, возможно, кнопка, которая генерирует расстояния, как в примере. формулы массива отстают от excel, когда слишком много значений. Подсчет их 1 к 1 будет пустой тратой времени. Пожалуйста, я хочу, чтобы это было сделано. Я бы по достоинству оценил это, если бы какой-то гений мог это сделать.

Пример ниже показывает, как далеко конкретное значение от другого:

Answer 1

вы могли бы попробовать это

Option Explicit 

Sub main() 
    Dim cell As Range, f As Range 
    Dim rowOffset As Long 

    With Worksheets("gaps").Range("A2:F10") '<--| change this to your actual range of interest 
     For Each cell In .SpecialCells(xlCellTypeConstants, xlNumbers) 
      rowOffset = 1 
      Set f = .Find(what:=cell, after:=cell, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious) 
      If Not f Is Nothing And f.Row <= cell.Row Then rowOffset = cell.Row - f.Row + 1 
      cell.offset(, .Columns.Count + 1) = rowOffset '<--| the "+1" offset results range one column away from values range: adjust it as per your needs 
     Next cell 
    End With 
End Sub 

испытанный на ваших «ценностей» он возвращает те же «пробелы Значение строки» кроме клетка «К4»: Я надеюсь, что это просчет с вашей стороны ...

---

вы должны когда-нибудь понадобится для вывода на экран в том же «relativ е»положение, а на другом листе (например:„sheet2“), то просто изменить

cell.offset(, .Columns.Count + 1) = rowOffset 

в

Worksheets("sheet2").Range(cell.offset(, .Columns.Count + 1).Address) = rowOffset