Автофильтр Excel VBA затем изменяет значение поля и заполнение с обработкой ошибок для возможности пустых ячеек

Question

Отфильтрованные данные для столбца M не заполняются видимым с моим изменением ввода до первой видимой строки данных в столбце M. Он заполняется до первой строки в первой ячейке после строки заголовка для столбца M, а не моего ввода вПервая видимая ячейка в M. Это не проверяющие данные, возвращаемые и заполняющие первую строку вниз.Не пропускаю, потому что не было данных для заполнения.

Я пробовал много разных фрагментов кода, которые я нашел на видимом и выборке и заполнении безрезультатно.

Sub DataData ()
'Change Active Worksheet to Raw Data
    Worksheets("Raw Data").Activate

    Application.ScreenUpdating = False

    ActiveSheet.Range("$A$1:$Z$" & Rows.Count).End(xlUp).AutoFilter Field:=4, Criteria1:= _
        "*Data*"

    With Worksheets("Raw Data").AutoFilter.Range
       Range("M" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Select
    End With

    ActiveCell.FormulaR1C1 = " DataData "

    With Worksheets("Raw Data").AutoFilter.Range
       Range("M" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Select
    End With

    With ActiveSheet.UsedRange.Select
    se
    .Resize(.Rows.Count - 1).Offset(1).Columns("M"). _
       SpecialCells(xlCellTypeVisible).FillDown
     End With

    ActiveSheet.ShowAllData

Япытаясь отфильтровать Данные в 4-м столбце, затем в строке M в первой видимой ячейке для этого столбца введите DataData (если в фильтре было что-то найдено), затем заполните только видимые данные из первой видимой ячейкив графе М.

Answer 1

Собираюсь попытаться исправить то, что я думаю, вы делаете и хотите:

option explicit 'put this at the top of your module

Sub DataData()
    Dim lr as long
    With Sheets("Raw Data")
        lr = .cells(.rows.count,1).end(xlup).row
        .Range(.Cells(2,"M"),.Cells(lr,"M")).SpecialCells(xlCellTypeVisible).value = " DataData "
        .ShowAllData
    End With
End Sub