我的宏比较数据并将其粘贴到指定的列。我希望它在下一个空列中比较和粘贴数据

Question

[The sheet from where the data is to be copied, columnB2:B]

As columnB is filled I want the data in Sheet1 ColumnB to be copied to the next empty column in Sheet3

我的宏比较数据并将其粘贴到指定的列。我希望它比较数据并将其粘贴到下一个空列中。在“如果 FR 0 则 w2.Range("B" & FR).Value = c.Offset(0, 1)”行中，我想要“ B" 为空列，但我不能这样做。

Sub UpdateW2()

    Dim w1 As Worksheet, w2 As Worksheet
    Dim c As Range, FR As Long
    Dim emptyColumn As Long

    Application.ScreenUpdating = False

    Set w1 = Sheet1
    Set w2 = Sheet2

    emptyColumn = w2.Cells(2, w2.Columns.Count).End(xlToLeft).Column
    If emptyColumn > 1 Then
        emptyColumn = emptyColumn + 1
    End If

    For Each c In w1.Range("B2", w1.Range("A" & Rows.Count).End(xlUp))
        FR = 0
        On Error Resume Next
        FR = Application.Match(c, w2.Columns("A"), 0)
        On Error GoTo 0
        If FR <> 0 Then w2.Range("B" & FR).Value = c.Offset(0, 1)
    Next c

    Application.ScreenUpdating = True

End Sub

Answer 1

 emptyColumn = w2.Cells(2, w2.Columns.Count).End(xlToLeft).Column
 If emptyColumn > 1 Then
       emptyColumn = emptyColumn + 1
 End If

这将返回第 2 行中右侧没有条目的列。你想要的（我认为）是第一列根本不包含任何数据）

 emptycolumn = w2.usedrange.columns.count +1