Определение последовательного списка близкостоящих ячеек

@Visors · Регистрация: 06.12.2017

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста с решением данной задачи.

Есть большое количество ячеек, разбросанных по листу - с числами.
Причем видно, что в некоторых местах - ячейки разрозненны, а в некоторых - между ними совсем небольшое расстояние или же они и вовсе - стоят впритык друг к другу.

Как построить составить список по ближайшим к друг к другу заполненным ячейкам?
(Ближайшими - считаются ячейки, расстояния между которыми - не больше одной пустой ячейки.)

То есть алгоритм примерно такой:
Макрос находит первую попавшуюся ячейку - рядом с которой на минимальном расстоянии - стоит другая аналогичная ячейка - и запоминает ее адрес, затем к идет следующей от нее ближайшей ячейке.

~~Остап Бонд~~ · 13.12.2017, 15:28

Visors, каким образом в ваш список попали три ячейки из [O5:U5]?

@Visors · 13.12.2017, 17:10 **[ТС]**

Остап Бонд, да, действительно.
Вот теперь я поправил файл.

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

@bedvit · 14.12.2017, 12:14

Противоречивые данные у вас в файле. Чем отличаются позиции w20-y19 (у вас не входит в список близкостоящих), и k7-m6 (выделено линией - входит)?

~~Остап Бонд~~ · 14.12.2017, 15:22

Visual Basic

Sub main()
Dim CL As Collection
Dim rn As Range, CS As Range, r&, c&
Set rn = [f3:ag26] ' Selection
rn.ClearFormats
For Each CS In rn
  If CS <> Empty Then
    For r = CS.Row - 2 To CS.Row + 2
      For c = CS.Column - 2 To CS.Column + 2
        If r <> CS.Row Or c <> CS.Column Then
          If Cells(r, c) <> Empty Then
            CS.Interior.ColorIndex = 3
            Cells(r, c).Interior.ColorIndex = 3
          End If
        End If
      Next
    Next
  End If
Next
For Each CS In rn
  If CS.Interior.ColorIndex = 3 Then
    'делайте с ячейкой или её адресом то, о чём мечтали(мне это неведомо)
  End If
Next
End Sub

~~Остап Бонд~~ · 14.12.2017, 15:30

Не по теме:

Сообщение от Остап Бонд

Dim CL As Collection

-это мусор, удалите.

@Visors · 14.12.2017, 16:28 **[ТС]**

Остап Бонд, ну, в принципе нормально.
Я думаю - подойдет.
Спасибо за помощь.

~~Остап Бонд~~ Заблокирован
	13.12.2017, 15:28	2
	Visors, каким образом в ваш список попали три ячейки из [O5:U5]? 0

@bedvit 1102 / 237 / 21 Регистрация: 20.05.2016 Сообщений: 1,068 Записей в блоге: 21
	14.12.2017, 12:14	4
	Противоречивые данные у вас в файле. Чем отличаются позиции w20-y19 (у вас не входит в список близкостоящих), и k7-m6 (выделено линией - входит)? 0

~~Остап Бонд~~
	14.12.2017, 15:30 #6
	Не по теме: Сообщение от Остап Бонд Dim CL As Collection -это мусор, удалите. 0

@Visors 0 / 0 / 0 Регистрация: 06.12.2017 Сообщений: 11
	14.12.2017, 16:28 [ТС]	7
	Остап Бонд, ну, в принципе нормально. Я думаю - подойдет. Спасибо за помощь. 0

Определение последовательного списка близкостоящих ячеек

Решение