SAS888
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Denkxx Цитата: Когда ничего не выбранно, то выдает ошибку. как это поправить? | Естественно. Нужно вставить проверку: вместо Код: Cells(NextRow, 4) = Left(v, Len(v) - 2) | написать Код: If v <> "" Then Cells(NextRow, 4) = Left(v, Len(v) - 2) | По поводу Цитата: как сделать что бы он по всей строке начиная, например, со столбца N искал. и если допустим в столбце N ничего нет, а в O есть, то он переходил на эту строку? | Я понял так, что нужно найти последнюю заполненную строку в каком-то конкретном диапазоне. Если так, то одной функцией здесь не обойтись. Есть много способов. Например, пусть наша таблица расположена в диапазоне "B2:H40". И пусть вокруг нее (выше, ниже, справа, слева) находятся другие данные. Для того, чтобы отыскать последнюю заполненную строку именно в нашем диапазоне, можно применить следующую конструкцию: Код: For i = 40 To 2 Step -1 If Range(Cells(i, "B"), Cells(i, "H")).Text = "" Then Else Exit For Next MsgBox i | После выхода из цикла, переменная i будет содержать то, что мы искали. |