vba - 将自动筛选数据复制到另一列

Question

下面的代码根据列 S & T 过滤数据。然后在可见数据上写入“Resub UW”。目前我正在尝试将 K 列中的可见日期数据复制到 AO 列中的可见空数据。如果有人可以帮助我使用此代码。

`Sub ReSubmitted_UW()
Rows("1:1").Select
Selection.AutoFilter
With ActiveSheet

.Range("$A:$AN").AutoFilter Field:=19, Criteria1:="<>"
.Range("$A:$AN").AutoFilter Field:=20, Criteria1:="="


lastRow = .Range("F" & Rows.Count).End(xlUp).Row

If lastRow > 2 Then
.Range(.Range("E2"), .Range("E" & lastRow)). _
SpecialCells(xlCellTypeVisible).Value = "ReSub UW"
End If
.Range("$A:$AN").AutoFilter
End With

End Sub

`

Answer 1

以下是如何将过滤范围内的一列中的值复制到另一列：

Sub CopyOneFilteredColumnToAnother()
    ' always declare your variables! (use option explicit)
    Dim ws As Worksheet
    Dim lastRow As Long

    Set ws = ThisWorkbook.Sheets("Sheet1")

    ws.Range("$A:$AN").AutoFilter Field:=19, Criteria1:="<>"
    ws.Range("$A:$AN").AutoFilter Field:=20, Criteria1:="="

    lastRow = ws.Range("F" & Rows.Count).End(xlUp).Row

    If lastRow > 2 Then
        ws.Range("AO2:AO" & lastRow).SpecialCells(xlCellTypeVisible).Value2 = _
            ws.Range("K2:K" & lastRow).SpecialCells(xlCellTypeVisible).Value2
    End If

    ' turn autofilters back off
    ws.AutoFilterMode = False

End Sub