excel - VBA，对于每个应用程序匹配，需要对象

Question

在应用程序匹配中循环出现问题。我在 K.Offset(0, 1).Copy FV.Offset(2, 0)

行上收到错误 Object required

代码应该

1) 循环遍历 CS 范围，

2) 其中 CS 在 FV 范围内匹配，

3) 将 CS Offset(0,1) 处的单元格输入到 Offset(2,0) 上方的 FV 2 列中。

这是我的完整代码:

Sub n()

Dim FV As Variant
Dim CS As Variant
Dim K As Variant

FV = Sheets("NEW").Range("A28:A34").Value
CS = Sheets("CS").Range("A1:L1").Value

For Each K In CS
    If Not IsError(Application.Match(CS, FV, 0)) Then
        K.Offset(0, 1).Copy FV.Offset(2, 0)
        Else:
    End If
Next K

End Sub

Answer 1

您可以使用纯 VBA 函数，例如:

Sub CopyMatchingValues()
    Dim FV As Range
    Dim CS As Range
    Dim cellFV As Range
    Dim cellCS As Range

    Set FV = Sheets("NEW").Range("A28:A34")
    Set CS = Sheets("CS").Range("A1:L1")

    For Each cellCS In CS.Cells
        For Each cellFV In FV.Cells
            If cellFV.Value = cellCS.Value Then
                cellFV.Offset(2, 0).Value = cellCS.Offset(0, 1).Value
            End If
        Next
    Next
End Sub