Приветствую всех форумчан! Столкнулся с проблемой следующего характера: имеется столбец с данными вида: 1-3 5 10 4-7 и т.д. хочу разделить эти данные(разделитель "-")и загнать их в два одномерных массива. В одном будут данные, которые находятся до разделится, во втором те. которые после него. Однако код ниже работает некорректно. [vba]
Код
Sub test() Dim rng As Range, cell As Range, c As String, d As String, k As String, i&, myarr(1 To 5), arr(1 To 5) Set rng = ActiveSheet.Range("I9:I13") On Error Resume Next For Each cell In rng d = InStr(cell, Chr(45)) c = Left(cell, d - 1) If d = 0 Then c = cell: k = cell End If k = Right(cell, d - 1) For i = 1 To 5 myarr(i) = c arr(i) = k Next Next End Sub
[/vba] Прошу помощи!
Приветствую всех форумчан! Столкнулся с проблемой следующего характера: имеется столбец с данными вида: 1-3 5 10 4-7 и т.д. хочу разделить эти данные(разделитель "-")и загнать их в два одномерных массива. В одном будут данные, которые находятся до разделится, во втором те. которые после него. Однако код ниже работает некорректно. [vba]
Код
Sub test() Dim rng As Range, cell As Range, c As String, d As String, k As String, i&, myarr(1 To 5), arr(1 To 5) Set rng = ActiveSheet.Range("I9:I13") On Error Resume Next For Each cell In rng d = InStr(cell, Chr(45)) c = Left(cell, d - 1) If d = 0 Then c = cell: k = cell End If k = Right(cell, d - 1) For i = 1 To 5 myarr(i) = c arr(i) = k Next Next End Sub
Sub test() Dim rng As Range, cell As Range, c As String, d As String, k As String, i&, myarr, arr Set rng = ActiveSheet.Range("I9:I13") A = rng.Value ReDim myarr(1 To UBound(A)) ReDim arr(1 To UBound(A)) For i = 1 To UBound(A) d = A(i, 1) Z = Split(d, "-") If d <> "" Then myarr(i) = Z(0) arr(i) = Z(UBound(Z)) End If Next End Sub
[/vba]
Здравствуйте.[vba]
Код
Sub test() Dim rng As Range, cell As Range, c As String, d As String, k As String, i&, myarr, arr Set rng = ActiveSheet.Range("I9:I13") A = rng.Value ReDim myarr(1 To UBound(A)) ReDim arr(1 To UBound(A)) For i = 1 To UBound(A) d = A(i, 1) Z = Split(d, "-") If d <> "" Then myarr(i) = Z(0) arr(i) = Z(UBound(Z)) End If Next End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
