在应用程序匹配中循环出现问题。
我在 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
最佳答案
您可以使用纯 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
关于excel - VBA,对于每个应用程序匹配,需要对象,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/53450946/