您希望Columns("A:AU")引用整行。

rng.EntireRow.Columns("A:AU").Copy

传送新条目

• 假设rng是单元格F2，那么
• rng.Columns("A:AU")指的是范围F2:AZ2，
• rng.EntireRow指的是范围A2:XFD2，
• rng.EntireRow.Columns("A:AU")是指范围A2:AU2。

Option Explicit

Sub TransferNewEntries()

    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code
    
    ' Source - to be read (copied) from
    Dim sws As Worksheet: Set sws = wb.Worksheets("W2W")
    Dim slRow As Long
    slRow = sws.UsedRange.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
    Dim srg As Range: Set srg = sws.Range("A2", sws.Cells(slRow, "AU"))
    Dim scrg As Range: Set scrg = sws.Range("F2", sws.Cells(slRow, "F"))
    ' or e.g. just 'Set scrg = srg.Columns(6)'

    ' Destination - to be written (pasted) to
    Dim dws As Worksheet: Set dws = wb.Worksheets("OTD Analysis")
    Dim dlRow As Long
    dlRow = dws.UsedRange.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
    Dim dcrg As Range: Set dcrg = dws.Range("F2", dws.Cells(dlRow, "F"))
    
    Dim surg As Range
    Dim sCell As Range
    Dim sr As Long
    Dim drIndex As Variant
    Dim drCount As Long
    
    For Each sCell In scrg.Cells
        sr = sr + 1 ' the n-th cell of the source column range...
                    ' ... more importantly, the n-th row of the source range
        drIndex = Application.Match(sCell.Value, dcrg, 0)
        If IsError(drIndex) Then ' source value was not found
            drCount = drCount + 1 ' count the rows to be copied
            If surg Is Nothing Then ' combine the rows into a range...
                Set surg = srg.Rows(sr)
            Else
                Set surg = Union(surg, srg.Rows(sr))
            End If
        'Else ' source value was found; do nothing
        End If
    Next sCell
    
    If surg Is Nothing Then
        MsgBox "No new entries (no action taken).", vbExclamation
        Exit Sub
    End If
    
    Dim dfCell As Range: Set dfCell = dws.Cells(dlRow + 1, "A")
    surg.Copy dfCell ' ... to be copied in one go
    
    MsgBox "New entries copied: " & drCount, vbInformation
    
End Sub