Kolonit
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа, помогите дельным советом, сам я в VBA почти чайник
В общем составил я вот что:
Код: Sub Ïîèñê_â_Äèàïàçîíå()
Dim i, j, t As Integer
For i = 4 To 5000
If Mid(Cells(i, 2), 1, 1) <> "!" Then
j = 5
If Cells(i, 2).Value Like "*à)*" Then
t = i
Cells(t, j) = Trim(Mid(Cells(i, 2), 3, Len(Cells(i, 2))))
End If
If Cells(i, 2).Value Like "*á)*" Then
Cells(t, j + 1) = Trim(Cells(i, 2))
End If
If Cells(i, 2).Value Like "*â)*" Then
Cells(t, j + 2) = Trim(Cells(i, 2))
End If
If Cells(i, 2).Value Like "*ã)*" Then
Cells(t, j + 3) = Trim(Cells(i, 2))
End If
If Cells(i, 2).Value Like "*ä)*" Then
Cells(t, j + 4) = Trim(Cells(i, 2))
End If
If Cells(i, 2).Value Like "*å)*" Then
Cells(t, j + 5) = Trim(Cells(i, 2))
End If
If Cells(i, 2).Value Like "*æ)*" Then
Cells(t, j + 6) = Trim(Cells(i, 2))
End If
End If
Next
End Sub |
когда в операторе цикла указываю от 4 до 1000 - работает норм, а если, допустим, от 4 до 7500 начинает ругаться, не могу понять почему. Подскажите пож кто в курсе
Добавлено:
Кривовато код вставился
а как здесь принтскрин вставить можно? |
именно... эти полоски и означают, что данная область скопированна в буфер обмена. Нужно эту строку добавить в конец кода.
