Скопируйте видимые ячейки из нескольких столбцов отфильтрованной таблицы в новую вставленную строку - PullRequest
Новая
       11

Скопируйте видимые ячейки из нескольких столбцов отфильтрованной таблицы в новую вставленную строку

0 голосов
/ 23 сентября 2018

Этот код ниже работает нормально.После применения фильтра в столбце A он позволяет мне вставить совершенно новую строку (столбцы A - AJ) с разными цветами, в то же время столбцы AH и G генерируются с текстовыми строками.Я получил таблицу с 2000 строками (количество строк меняется каждый день).

Но я хочу добавить дополнительную функцию к этому существующему макросу, но не знаю, как добавить. Я объясню этониже.

После применения фильтра в столбце A мне нужно также скопировать информацию из последней активной видимой ячейки столбца S в столбец L и вставить в новую вставленную строку, упомянутую выше, вместе со строками текста в столбце AH иГ. 

Sub insertRow()

    Dim rng As Range
    Dim rw As Long
    Dim lastrow As Long

    With ActiveCell
        rw = .Row
        .Offset(1).EntireRow.Insert
    End With

     Set rng = Rows(rw + 1)
     Thisrow = ActiveCell.Row

     Cells(Thisrow + 1, "AC").Value = "NO"  'extra text string
     Cells(Thisrow + 1, "AE").Value = "YES"  'extra text string



    rng.Columns("A:C").Interior.Color = RGB(191, 191, 191) 'color for the new row
    rng.Columns("D:E").Interior.Color = RGB(191, 191, 191) 'color for the new row
    rng.Columns("F:K").Interior.Color = RGB(255, 255, 0)   'color for the new row
    rng.Columns("L:R").Interior.Color = RGB(255, 128, 128) 'color for the new row
    rng.Columns("S:AG").Interior.Color = RGB(128, 0, 0)    'color for the new row



    Range("A" & rw, "AG" & rw + 1).Borders.Weight = xlThin  'range for the new row

End Sub
...