两个Find方法的嵌套，定位公共列的位置（对象变量或with块变量未设置）

弄雷惊洲

一、【问题描述】
假如在 Worksheet1 的第一行有些单元格写有内容（如“苹果”），第二行有另外一些单元格写有内容（如“橘子”），怎样通过Find方法定位第一行有“苹果”和第二行有“橘子”的公共列呢？（如图）

二、【尝试代码及报错】
        ‘代码显示错误：对象变量或with块变量未设置。

        Dim m as Range,  n as Range,  FirstAddress1 as String,  FirstAddress2 as String
        With Thisworkbook.Worksheets(1)
        Set m = .Rows("1").Find("苹果")
                Set n = .Rows("2").Find("橘子")
                If Not m Is Nothing Or Not n Is Nothing Then
                    FirstAddress1 = m.Address
                    FirstAddress2 = n.Address
                    Do
                        If m.Column = n.Column Then    ‘判断m和n的列相等

                          <具体操作略>       

                        End If
                    Set m = .Rows("1").FindNext(m)
                    Set n = .Rows("2").FindNext(n)
                    Loop Until (n Is Nothing) Or (n.Address = FirstAddress2) Or (m Is Nothing) Or (m.Address = FirstAddress1)
                End If
        End With

jiminyanyan

可以用for 循环呀。。。。

jiminyanyan

上个附件

jiminyanyan

Sub jimin()
    Dim crr(1 To 100, 1 To 1)
    For i = 1 To 100
        If Cells(1, i) = "苹果" And Cells(2, i) = "橘子" Then
            k = k + 1
            crr(k, 1) = i
        End If
    Next
    Cells(3, 1).Resize(UBound(crr), 1) = crr
End Sub

jiminyanyan

。。。。。。

duquancai

1. Sub main()
   
2.     Dim a(), b(), d As Object, i&, j&
   
3.     Worksheets(1).Select: Rows("1:2").Interior.Pattern = xlNone
   
4.     If Not getC(a, Rows(1), "苹果") Then MsgBox "不玩！": Exit Sub
   
5.     If Not getC(b, Rows(2), "橘子") Then MsgBox "不玩！": Exit Sub
   
6.     Set d = CreateObject("Scripting.Dictionary")
   
7.     For i = LBound(a) To UBound(a): d(CStr(a(i))) = vbNullString: Next
   
8.     For i = LBound(b) To UBound(b)
   
9.         If d.exists(CStr(b(i))) Then j = j + 1: Range(Cells(1, b(i)), Cells(2, b(i))).Interior.Color = 65535
   
10.     Next
    
11.     MsgBox IIf(j, "有" & j & "个同列", "没得同列的")
    
12. End Sub
    
13. Function getC(ByRef arr, ByVal rng As Range, ByVal str) As Boolean
    
14.     Dim c As Range, FirstAddress$, n&
    
15.     Set c = rng.Find(str, LookIn:=xlValues, lookat:=xlWhole)
    
16.     If Not c Is Nothing Then
    
17.         FirstAddress = c.Address
    
18.         Do
    
19.             n = n + 1: ReDim Preserve arr(1 To n)
    
20.             arr(n) = c.Column: Set c = rng.FindNext(c)
    
21.         Loop Until c.Address = FirstAddress
    
22.         getC = True
    
23.     End If
    
24. End Function

复制代码

弄雷惊洲

jiminyanyan 发表于 2018-8-10 19:54
Sub jimin()
    Dim crr(1 To 100, 1 To 1)
    For i = 1 To 100

不错的办法，学习受教了！！