7. Создание пар и их группировка

Sub Pairs()

pair = 1

For i = 2 To 291

For j = i + 1 To 292

word1 = Sheets("Table").Cells(i, 1)

word2 = Sheets("Table").Cells(j, 1)

k = 0

For n = 2 To 50

If Sheets("Table").Cells(i, n).Value * Sheets("Table").Cells(j, n).Value > 0 Then k = k + 1

Next n

If k >= 2 Then

Sheets("Pairs").Cells(pair, 1) = word1

Sheets("Pairs").Cells(pair, 2) = word2

Sheets("Pairs").Cells(pair, 3) = k

pair = pair + 1

End If

Next j

Next i

End Sub

'Далее в Табл 2 необходимо было отсортировать список по суммарному числу появлений и удалить в ручную низкочастотные запросы. После этого перенесли на лист Nodes получившийся результат 1.8. Анализ инвестиций

Sub ComputeDist()

Num = 9 ' Количество годов

Cat = 15 ' Количество категорий

pair = 1

For i = 1 To Num - 1

For j = i + 1 To Num

'Считаем сумму отличий между i-м и j-м регионами

dist = 0

For k = 1 To Cat

p1 = Sheets("Data%").Cells(i + 1, k + 1)

p2 = Sheets("Data%").Cells(j + 1, k + 1)

dist = dist + Abs(p1 - p2)

Next k

Sheets("Distanse").Cells(i + 1, j + 1) = dist

Sheets("Distanse").Cells(j + 1, i + 1) = dist

Sheets("Pairs").Cells(pair, 1) = i

Sheets("Pairs").Cells(pair, 2) = j

Sheets("Pairs").Cells(pair, 3) = dist

pair = pair + 1

Next j

Next i

End Sub

1 Ресурс: http://www.altairegion22.ru/territory/info/

2 Ресурс: http://www.altairegion22.ru/territory/info/

18