0

以下のコードは、列 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

`

4

1 に答える 1

0

フィルター処理された範囲内の 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
于 2013-09-18T13:20:59.590 に答える