小编Hum*_*Val的帖子

对于所有善良的爱,我似乎无法让这一切发挥作用.我一直收到上面提到的错误.

我有这个表,我试图找出代码是否在另一列中的某个地方匹配它自己的子代码,但它是错误的.非常感谢您的帮助.

Sub testing()

    Dim m1 As long
    Dim myrange As Range

    Set myrange = Worksheets("Sheet1").Range("B2:B23")

    For e = 2 To 23
        m1= Application.WorksheetFunction.Match(Cells(e, 1).Value, myrange, 0)

        If m1 > 0 Then
            Cells(e, 3).Value = "Yes"
        Else
            Cells(e, 3).Value = "No"
        End If
    Next e

MsgBox "Complete!"

End Sub

我真的很感激我能得到的任何帮助.

我试图遍历一个列,寻找重复的名称,然后从同一行获取该数据和其他几个数据,并将它们放入我想要使用另一个函数的2D数组中,但它不起作用.

我真的需要你帮助搞清楚为什么我不能在不保留数据的情况下重新编译这个数组.

Dim oRange As Range, aCell As Range, bCell As Range
Dim ws As Worksheet
Dim SearchString As String, FoundAt As String
Dim tArray() As Variant
Dim iR As Long
Dim LastRow As Long
Dim LastCol As Long

'name of the worksheet
Set ws = Worksheets("VML Daily")

'column 6 has a huge list of names
Set oRange = ws.Columns(6)

'the keyword (there are 7 'ABC Company 1' in the column above)
SearchString = "ABC Company 1"

'Find keyword …