Ответ: Вопросы по Excel
Имеется функция Couple объединяющая ячейки
Function Couple(Diapazon)
' Ob'edinenie dannyh, soderzhaschihsya v yacheikah diapazona _
Diapazon (razdelitel' mezhdu znacheniyami - probel)
' iCell - tekuschaya yacheika
For Each iCell In Diapazon
' Stseplyayutsya dannye tol'ko zapolnennyh yacheek
If IsEmpty(iCell) <> True Then
' Dobavlenie znacheniya yacheiki v vyhodnuyu stroku
If Couple = "" Then
Couple = iCell
Else
Couple = Couple & " " & iCell
End If
End If
Next
End Function
Каким образом его нужно запустить. Дайте пожалуйста пошаговую инструкцию
|