Этот код должен делать то, что вы хотите. Он определяет наличие целых чисел в диапазоне B: AH с помощью функции рабочего листа COUNT ().
Private Sub CountIntegers()
Dim Arr As Variant ' output array
Dim Rng As Range
Dim Rl As Long ' last row
Dim R As Long ' row counter
Dim i As Long ' index of Arr
With ActiveSheet
Rl = .Cells(.Rows.Count, "A").End(xlUp).Row
ReDim Arr(1 To Rl)
For R = 2 To Rl ' assuming row 1 to have headers
Set Rng = Range(.Cells(R, "B"), .Cells(R, "AH"))
If Application.Count(Rng) Then
i = i + 1
Arr(i) = .Cells(R, "A").Value
End If
Next R
End With
ReDim Preserve Arr(i)
' specify the output sheet here:-
Set Rng = Worksheets("Sheet2").Cells(2, 1).Resize(i)
Rng.Value = Application.Transpose(Arr)
End Sub
Если Вы уже имеете в распоряжении инфраструктуру и уверены в Вашей способности разместить, скопировать, и предоставлять доступность Вашим репозиториям затем я сказал бы, что хостинг SVN сами является способом пойти. Это позволяет Вам относительно неограниченный рост и полный контроль по Вашему источнику.
Если у Вас есть, прежде всего, мобильные трудовые ресурсы разработки, которые являются маленькими в числе затем, стоимость и ограничения использования размещенного поставщика могли бы сделать его намного более удобным для Вас. Но это относится к очень немногим компаниям.
Вот мой личный опыт с этой проблемой. Я выполнил свой собственный сервер SVN для 2 + годы и CVS 2 + за годы до этого. SVN является грязью, простой администратору, но со временем все больше моего кода делало, это - путь в репозиторий. У меня буквально есть все, что я когда-либо писал из колледжа до сих пор своему respository (проекты работы, конечно, исключенные).
Я действительно разъедал путь к часто, что у меня была работа своей жизни, находящаяся на некотором случайном сервере в моем доме. 5 лет кода вполне немного. Иногда я становился бы параноиком, чтобы выполнить резервное копирование и взять CD, чтобы работать и бросить его в стол. Но времени между резервными копиями откровенно недоставало.
Были также проблемы безопасности сам хостинг сервера. Я был довольно прилежен об установке обновлений (debian, так себе легко к этому с). Но со временем я находил, что у меня было все меньше и меньше время администратору сервер.
В конечном счете я исследовал некоторых поставщиков и попробовал использовать wush.net. Вы не сможете заставить меня вернуться к сам хостинг. Wush.net является невероятным хостом. Я использовал их в течение 2-3 лет теперь и во все то время был сингл (да единственный) экземпляр, что я не смог получить свой источник. Они делают ночью удаленные резервные копии, таким образом, я чувствую себя хорошо о безопасности моего кода. И не имея необходимость администратору больше у меня есть так намного больше времени для фактического получения некоторого сделанного кодирования.
Несколько предыдущие ТАК потоки обсудили это:
Каков некоторый достойный ISPs та подверсия хоста Где репозиторий подверсии должен быть Если я использую программное обеспечение, размещающее решение для моих персональных проектов
Я уверен, что видел пару больше, но я не могу найти их прямо сейчас.
Насколько важный Ваш репозиторий SVN?
Жизненно важный?
Затем Вы не хотите доверять его хосту, который обещает создать резервную копию его регулярно. Его легкое для становления хостом Вы арендуете сервер, и Вы - хост, таким образом, его притянутый много из менее - деловые поставщики, и Вы не будете обычно мочь сказать пользу от плохого, пока плохой не обанкротится, и Вы внезапно не можете соединиться или связаться с ними для тех резервных копий, и их хост выключает Ваш сервер, потому что им не заплатили и не будут говорить с Вами, потому что у них нет деловых отношений с Вами.
Так, если Вы действительно идете с хостом, удостоверьтесь, что те резервные копии находят свой путь в Ваши руки регулярно, и можно восстановить от них. Что-либо меньше - просто слепое доверие, что Вы будете всегда мочь достигнуть их.