Function Range2TXT(ByRef ra As Range, Optional ByVal ColumnsSeparator$ = vbTab, _ Optional ByVal RowsSeparator$ = vbNewLine) As String If ra.Cells.Count = 1 Then Range2TXT = ra.Value & RowsSeparator$: Exit Function If ra.Areas.Count > 1 Then Dim ar As Range For Each ar In ra.Areas Range2TXT = Range2TXT & Range2TXT(ar, ColumnsSeparator$, RowsSeparator$) Next ar Exit Function End If arr = ra.Value For i = LBound(arr, 1) To UBound(arr, 1)
Макросы VBA Excel — Страница 33
- « первая
- ‹ предыдущая
- …
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- …
- следующая ›
- последняя »