Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA, редактирование каждой не пустой ячейки столбца при условии.
 
#1
15.10.2019 08:18:42
Здравствуйте.
Уважаемые Гуру, помогите пжста с макросом.
Бежим в цикле по столбцу пока ячейка не пустая и выполняем действие (дописываем к значению в ячейке "_1200") если первые 4 символа не равны "Z_BW".
Заранее благодарен.  
Изменено: ageres1982 - 15.10.2019 08:19:33
 
 
 
#2
15.10.2019 08:41:12
Нужно обязательно макросом? А то можно так:
 
 
 
#3
15.10.2019 08:44:37
Цитата
ageres1982 написал:
(дописываем к значению в ячейке "_1200"
дописываем в конец или в начало ?
 
 
 
#4
15.10.2019 08:45:37
Спасибо большое, нужно именно на VBA. Дописываем в конец. Спасибо огромное что откликнулись.
 
 
 
#5
15.10.2019 08:50:07
Получите. Бежит по столбцу А и добавляет
Извините, невнимательно прочитал задание, сделал наоборот. Исправил на новый файл
Изменено: msi2102 - 15.10.2019 08:58:12
 
 
 
#6
15.10.2019 08:53:16
Код
Sub test()
     With Sheets(1)
        For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            If Left(Cells(i, 1), 4) <> "Z_BW" Then
               Cells(i, 1) = Cells(i, 1) & "_1200"
            End If
        Next
    End With
End Sub
 
 
 
#7
15.10.2019 08:59:04
Цитата
msi2102 написал:
Получите. Бежит по столбцу А и добавляет
Спасибо огромное, а можно это делать в том же стобце где были данные (без дополнительного столбца с результатами) ?
 
 
 
#8
15.10.2019 09:01:24
Так удалите его, это просто решение формулой.
 
 
 
#9
15.10.2019 09:09:47
Ура, получилось!  :) Спасибо огромное.  
 
 
 
Страницы: 1
Наверх