[已解决]match函数的范围怎么用变量

凤鸣岐山

寻找sheet2的行中出现 1的最早列,将1所在单元格前一单元的日期添加到sheet4.
请教老师.
Sub 拍鸟清单网改11()
    Dim x As Long, i As Long, j As Long, k As Long
        i = Sheet2.Range("g65536").End(xlUp).Row
        j = 0
        k = 4
        m = 0
        For x = 4 To i
            If Trim(Sheet2.Cells(x, "ad")) = 1 Then
                j = j + 1               
                y = Application.WorksheetFunction.Match(1, Rows(x), 0)
                Sheet4.Cells(j + 1, k + 3) = Sheet2.Cells(x, y - 1)
                If j Mod 37 = 36 And j <> 0 Then
                    k = k + 4
                    'm = m + 2
                    j = 0
                End If
            End If
        Next x
    MsgBox "执行完毕!"
End Sub

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-3-3 20:30

凤鸣岐山 发表于 2021-3-3 20:12
老师 这个好，首先能够把行变量用进去了。我在网上看了一个用法  y = Excel.Application.Workshee ...

   For x = 1 To 1
      y = Application.WorksheetFunction.match(1, Sheet2.Range(Sheet2.Cells(x, 3), Sheet2.Cells(x, 26)), 0)
   Next


Sheet2.Cells(x, 3)   代表 x 行 C 列
Sheet2.Cells(x, 26) 代表 x 行 Z 列

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

大灰狼1976

是不是这样？
y = Application.WorksheetFunction.Match(1, Sheet2.Rows(x), 0)

凤鸣岐山

大灰狼1976 发表于 2021-3-3 19:51
是不是这样？
y = Application.WorksheetFunction.Match(1, Sheet2.Rows(x), 0)

       老师 这个好，首先能够把行变量用进去了。我在网上看了一个用法  y = Excel.Application.WorksheetFunction.Match(1, Sheet2.Range("8:8"), 0)，不知道怎么把固定行作为变量，用在公式里。      现在还是控制不了查询的起始位置，比如说每行从C列--到Z列，怎么用变量的形势表达在公式里。
      请老师给予指导。

cutecpu

凤鸣岐山 发表于 2021-3-3 20:12
老师 这个好，首先能够把行变量用进去了。我在网上看了一个用法  y = Excel.Application.Workshee ...

   For x = 1 To 1
      y = Application.WorksheetFunction.match(1, Sheet2.Range(Sheet2.Cells(x, 3), Sheet2.Cells(x, 26)), 0)
   Next


Sheet2.Cells(x, 3)   代表 x 行 C 列
Sheet2.Cells(x, 26) 代表 x 行 Z 列

祝順心，南無阿彌陀佛！

凤鸣岐山

大灰狼1976 发表于 2021-3-3 19:51
是不是这样？
y = Application.WorksheetFunction.Match(1, Sheet2.Rows(x), 0)

老师 ，如果把判断值“1”，改为判断当前行最早出现的日期，应该怎么表达（MATCH(lookup_value, lookup_array, match_type)）
谢谢 老师。

凤鸣岐山

cutecpu 发表于 2021-3-3 20:30
For x = 1 To 1
      y = Application.WorksheetFunction.match(1, Sheet2.Range(Sheet2.Cells(x, 3 ...

还是老师有办法！我试了好多次 Range(Cells(x, “c"), Cells(x, "Z")),或Range(Cells(x, 3), Cells(x, 26))都有提示错，老师这个好，Range(Sheet2.Cells(x, 3), Sheet2.Cells(x, 26))，一下就解决问题了。

阿弥陀佛，老师功德无量！

把 3 , 26 改成下面也行：
Sheet2.Range(Sheet2.Cells(x, "c"), Sheet2.Cells(x, "z"))   

大灰狼1976

凤鸣岐山 发表于 2021-3-3 20:33
老师 ，如果把判断值“1”，改为判断当前行最早出现的日期，应该怎么表达（MATCH(lookup_value, lookup_ ...

match函数查找日期也是把日期作为数值来进行处理的，一行里面有常规数值和日期时，match并不能分辨它们，所以最好不要用工作表函数，而是通过循环加isdate()来判断，或者你现在的1标记也未尝不可。