Доброго времени суток. Возникла проблема, прошу помочь. Суть в том что в столбце D нужно обрезать данные. Дойдя до последней строки - остановка программы. В итоге перебор офсетом после обнаружения последней строки идет, но данные не обрабатываются.
[vba]
Код
Sub www() Sheets("1").Select
Dim r As Variant Dim cell As Range: On Error Resume Next
r = Range("D" & Rows.Count).End(xlUp).Select Do Until Selection.Value = "ТТ" With ActiveCell.Mid(cell.Text, 2, 5) Selection.Offset(-1, 0).Select End With Loop End Sub
[/vba]
Доброго времени суток. Возникла проблема, прошу помочь. Суть в том что в столбце D нужно обрезать данные. Дойдя до последней строки - остановка программы. В итоге перебор офсетом после обнаружения последней строки идет, но данные не обрабатываются.
[vba]
Код
Sub www() Sheets("1").Select
Dim r As Variant Dim cell As Range: On Error Resume Next
r = Range("D" & Rows.Count).End(xlUp).Select Do Until Selection.Value = "ТТ" With ActiveCell.Mid(cell.Text, 2, 5) Selection.Offset(-1, 0).Select End With Loop End Sub
Sub Макрос1() With Лист2 r_ = .Range("D" & Rows.Count).End(xlUp).Row .Range("D4:D" & r_).Replace What:=" *", Replacement:="" .Range("D4:D" & r_).Replace What:=".", Replacement:="'" End With End Sub
[/vba]
Попробуйте так [vba]
Код
Sub Макрос1() With Лист2 r_ = .Range("D" & Rows.Count).End(xlUp).Row .Range("D4:D" & r_).Replace What:=" *", Replacement:="" .Range("D4:D" & r_).Replace What:=".", Replacement:="'" End With End Sub
Спасибо за ответ, код работает, единственная проблема в том, что должно остаться пятизначное число, но при обработке ноли удаляются и остается только 4 знака.
Спасибо за ответ, код работает, единственная проблема в том, что должно остаться пятизначное число, но при обработке ноли удаляются и остается только 4 знака.thrasher
Может быть немного невнятно выразился, если в 5 значном коде точки, который должен остаться, в конце стоит ноль - ноль удаляется и вместо необходимых 5 знаков, остается 4.
Может быть немного невнятно выразился, если в 5 значном коде точки, который должен остаться, в конце стоит ноль - ноль удаляется и вместо необходимых 5 знаков, остается 4.thrasher
Доброго времени суток уважаемые форумчане!!! Так как с VBA не силен прошу Вашей помощи: Есть набор данных в колонке "D" от 4 до 104 ячейки в них вносятся 10-значения и 11-значения, из этих значений нужно удалить 4 первых символа. Например введено: 2052147852, а должно остаться - 147852. первых 4 символа динамичные, меняются при каждом вводе Прошу Вашей помощи. Заранее благодарен))))
Доброго времени суток уважаемые форумчане!!! Так как с VBA не силен прошу Вашей помощи: Есть набор данных в колонке "D" от 4 до 104 ячейки в них вносятся 10-значения и 11-значения, из этих значений нужно удалить 4 первых символа. Например введено: 2052147852, а должно остаться - 147852. первых 4 символа динамичные, меняются при каждом вводе Прошу Вашей помощи. Заранее благодарен))))werty456
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
