Вопрос : Разрешать geocache головоломки

Я пытаюсь разрешить geocache головоломки. Любое имеет идею где начать?

Here будет соединение к rel= " nofollow " " _blank " " target= " http://www.geocaching.com/seek/cache_details.aspx?guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt= href= page.

seek/cache_details.aspx http://www.geocaching.com/? вещи

First guid=c9cedb13-a1f7-4a56-8ff9-35e748bc23c2&log=y&decrypt=

The быстро Brown Fox

N 44° 20.403 w 074° 21.042 во-первых, тайник не расположены на, котор дали координатах; они просто обеспечивают вас с славным местом для того чтобы припарковать и подумать и разработать криптограмму ниже. Тайник находится между 0.25 милями и 6.50 милями далеко от первоначально координат. Я подсчитал 18 видов валов между моим автомобилем и положением тайника, увидел 3 вида птиц, 4 типа следов животных, и am 97% конечно что я увидел бойскаута младшей группы. Удача находя этот тайник, он находится в некотором реально красивейшем woods.

1-4-1, 2-1-2, 3-2-6, 4-2-3, 1-8-4, 2-2-1, 3-12-4, 4-8-4, 1-1-2, 2-3-2, 3-2-3, 4-3-3, 1-8-7, 2-4-5, 3-6-2, 4-4-1, 1-2-2, 2-2-5, 3-7-1, 4-4-3, 1-2-5, 4-1-1, 2-1-3, 3-4-5, 1-2-1, 4-9-1, 3-2-2, 4-2-3, 3-4-1, 1-9-1, 2-4-3, 3-4-3, 3-19-1, 3-19-1, 2-5-3, 2-8-4, 2-5-2, 3-15-1, 3-26-2, 3-19-1, 4-11-1, 2-5-1, 3-26-2, 3-19-1, 2-5-3, 3-3-1, 2-5-2, 3-19-1, 2-5-4, контейнер тайника 3-26-2

The боеприпасы-смогите заполнено с торговый деталями, регистрационным журналом, и

You намеков pencil.

Additional (шифруйте) должно мочь к давати в численном выражении это с распечаткой перечисления и карандаша class=

Ответ : Разрешать geocache головоломки

Здесь один подход, результаты на sheet2.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26:

Sub x () Тусклое oDic как предмет, sNames () как шнур, vInput (), I как длиной, n как длиной vInput = Sheet1.Range («A1», Sheet1.Range («c» & Rows.Count). Конец (xlUp)). Значение sNames ReDim (1 к UBound (vInput, 1), 1 до 3) Установленное oDic = CreateObject («Scripting.Dictionary») С oDic Для I = 1 к UBound (vInput, 1) Если не. Существует (vInput (I, 1)) после этого n = n + 1 sNames (n, 1) = vInput (I, 1) sNames (n, 2) = vInput (I, 2) & «(" & vInput (I, 3) & ")» sNames (n, 3) = vInput (I, 3) . Добавьте vInput (I, 1), n ElseIf. Существует (vInput (I, 1)) после этого sNames (. Деталь (vInput (I, 1)), 2) = sNames (. Деталь (vInput (I, 1)), 2) & «,» & vInput (I, 2) & «(" & vInput (I, 3) & ")» sNames (. Деталь (vInput (I, 1)), 3) = sNames (. Деталь (vInput (I, 1)), 3) + vInput (I, 3) Закончитесь если Затем iий Конец с Sheet2.Range («A1»). Измените размеры (n, 3) = sNames Закончите подводную лодку