一个数据实时判断是否一组单元格内

tzhouyin

Excel介绍
公司生产系统用的数据


共3个Sheet，Sheets("D")，通过VBA Inputbox，员工扫描二维码传输数据到第2行到第7行

                    Sheets("F7")，是基本数据
                    Sheets("Barcode")，就是根据基本数据制作的二维码
现在已经通过将输入二维码转变成一维数组，判断一维数组下标大小，进行防错，已经实现。
但是想进一步防错，例判断二维码转变成一维数组后的第1个下标数据是否在Sheets("F7")对应的拉缸清单内，
                                      二维码转变成一维数组后的第2个下标数据是否在Sheets("F7")对应的产品清单内，
                                      二维码转变成一维数组后的第3个下标数据是否在Sheets("F7")对应的配方清单内，
                                      二维码转变成一维数组后的第4个下标数据是否在Sheets("F7")对应的位置清单内，
                                      二维码转变成一维数组后的第5个下标数据是否在Sheets("F7")对应的搅拌清单内，
                                      二维码转变成一维数组后的第5个下标数据是否在Sheets("F7")对应的编号清单内。
通过vba find，或者instr，功能都实现不了，也就是Tin2是有问题的。
麻烦大神帮看下，如何解决。

tzhouyin

备注下，正常Sheets"F7")是只读状态，也就是加密状态

z865593849

碰到新人最麻烦的就是不知道他想干嘛

tzhouyin

麻烦大神帮看下这段代码错在什么地方，谢谢
Sub Tin()
    Dim i, j, m, arr, brr
    brr = Sheets("F7").Range("AL2:AL" & Range("AL1048576").End(xlUp).Row)
    i = InputBox("Scan")
    arr = Split(i, ",")
    For j = 1 To UBound(brr)
        If brr(j, 1) = arr(0) Then
            Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column + 1).Resize(UBound(arr) + 1, 1) = Excel.Application.WorksheetFunction.Transpose(arr)
        Else
            Exit Sub
        End If
    Next
    Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column).Offset(-1, 0).Activate
End Sub