Здравствуйте.
Помогите подправить макрос, работа которого заключается в следующем: найти в столбце "B" все ячейки, содержащие текст "DTMF-In", скопировать значение из соседней ячейки в этой же строке в столбце "А" и вставить на лист "якоря" в этой же книге.
Sub DTMF_In()
Dim w As Range
Set w = [c:c].Find("DTMF-In", , xlValues, xlPart)
If Not w Is Nothing Then Range(w, w.Offset(1)).Copy Worksheets("якоря").Range("A4")
End Sub
Подправить? А если использовать другой подход?
Sub Afilter()
Sheets("якоря").[a1].CurrentRegion.ClearContents
With Sheets("Экспорт плейлиста").UsedRange
.AutoFilter 2, "*DTMF-In*"
.Columns(1).Copy Sheets("якоря").Range("A1")
.Parent.AutoFilterMode = 0
End With
End Sub
Вообще супер. Огромное спасибо.
А без излишнего цитирования вообще супер-суперовее :)[МОДЕРАТОР]