Excel VBA过滤一列，然后将区域集合中的每个项目复制到匹配的行

Question

I have the following Excel Table:

 Create Date          Last Active Date        Age
 4/12/2017 5:54         4/17/2020 8:54      5 Days
                        4/19/2017 7:43       #N/A
                        4/12/2017 20:43      #N/A
 4/1/2017 23:20         4/3/2017 6:54       10 Days
                        4/15/2017 22:20      #N/A

What I want to do is to filter the Age Column by #N/A, and then copy each Last Active Date value to the same row in Create Date. Seems easy enough, but I keep running into issues. I am using the SpecialCells(xlCellTypeVisible) property to then do a for each on each Area in there(non-contiguous rows), but when I go to copy the rows, it either copies the rows starting at Row 1 of the Create Date column, meaning the values get all out of whack OR it throws an error saying the ranges don't match. Here is the code I have so far that I pulled from another page that talked about how to do this, but it doesn't seem to work for me.

    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8, Criteria1:= _
        "#N/A"
    Dim lngrow As Long
    Dim FinalDest As Range
    Dim Rng As Range
    lngrow = Sheets("Sheet1").UsedRange.Rows.Count
    Set FinalDest = Sheets("Sheet1").Range("C2:C" & lngrow)
    Range("F2:F" & lngrow).Select

    For Each Rng In Cells.SpecialCells(xlCellTypeVisible).Areas
        Set FinalDest = FinalDest.Offset(Rng.Rows.Count)
        Rng.Copy Destination:=FinalDest
    Next Rng
    Application.CutCopyMode = False

How can I accomplish this? I want to filter it by #N/A, and then for each filtered row that remains, copy the value in Last Active Date to Create Date, (which will always be blank for these rows) and make sure they get copied to the proper rows, ie if Row 3 is the first filtered row, the value gets copied to rows 3 instead of row 2.

Answer 1

You don't need to filter your table. You have two feasible solutions:

Solution 1 (without VBA): Assuming that Create Date is at A1:

-Insert a new column between Create Date and Last Active Date.

-Insert this function to B2--> =IF(A2="",IFNA(D2,C2),A2)

-Copy paste B2 till end of your column

-Copy all B column and paste them as values.

-Delete Column A

Solution 2 (with VBA):

You can loop through each row and check if the Age cell is #N/A, if true(#N/A), then you do the copy/paste from Last Active Date cell to Create Date Cell.

Solution 1 is much faster and easy. If you are interested in VBA solution let us know.

Edit: You can always change the following code for different conditions but since you said --> Create date value (which will always be blank for these rows):

Dim i As Long
For i = 2 To Range("C1").End(xlDown).Row
    If IsEmpty(Cells(i, 1).Value) Then
        Cells(i, 1) = Cells(i, 2)
    End If
Next i