Замена текста в определенном месте текстовой строки - сразу для нескольких ячеек

@bazanski · Регистрация: 21.12.2018

Author24 — интернет-сервис помощи студентам

Здравствуйте, форумчане.

У меня появился такой вопрос.
Есть макрос, который извлекает определенный текст из столбца "Z" и переносит его в определенное место столбца "AA".
Сейчас макрос делает это для последней ячейки с текстом - столбца Z.

Это немного неудобно, когда нужно заменить текст сразу в нескольких ячейках столбца "AA".
Я расположил дополнительный столбец "T", который наполовину заполнен числами, а на половину - вообще ничем не заполнен.

Посоветуйте - как изменить макрос, чтобы он выполнял операции по извлечению текста - для нескольких ячеек столбца "AA", при условии что в столбце "T" нет заполненных ячеек для этих строк ?
(Сейчас код выполняется только для ячейки AA75, а нужно чтобы он выполнялся для диапазона AA46:AA78 - поскольку в соответствующем ему диапазоне столбца "Т" -T46:T46 - нет содержимого.)

@Loya · 25.01.2019, 12:07

В макрос не вникала, скопировать НЕ пустые ячейки можно так:

Visual Basic

Sub main()
Dim lRowT As Long, lRowZ As Long
Dim i As Integer
 
lRowT = Cells(Rows.Count, "T").End(xlUp).Row 'Определяем последнюю заполненную в столбце T
lRowZ = Cells(Rows.Count, "Z").End(xlUp).Row 'Определяем последнюю заполненную в столбце Z
 
lRowT = lRowT + 1
For i = lRowT To lRowZ
    If Trim(Cells(i, "Z").Value) <> "" Then
        Cells(i + 2, "AA").Value = Cells(i, "Z").Value
    End If
Next i
 
End Sub

@bazanski · 25.01.2019, 19:35 **[ТС]**

Loya, у вас идет простое копирование.

А как имеющийся макрос - заставить реагировать на пустые ячейки ?

@bazanski · 26.01.2019, 07:35 **[ТС]**

Loya, ну в общем разобрался я более-менее.
Спасибо за помощь.

@bazanski 0 / 0 / 0 Регистрация: 21.12.2018 Сообщений: 82
	26.01.2019, 07:35 [ТС]	4
	Loya, ну в общем разобрался я более-менее. Спасибо за помощь. 0

Замена текста в определенном месте текстовой строки - сразу для нескольких ячеек

Решение