采用字符串连接方法是简化if+多个and的最佳方法之一。

ning84

最常用的方法是
If Rng(ii, 1) = Rr(ii1, 1) And Rng(ii, 2) = Rr(ii1, 2) And Rng(ii, 3) = Rr(ii1, 3) Then

1. 
   
2. Sub Del3()
   
3.    Dim Rr As Range, Rr1 As Range
   
4. 
   
5.       
   
6.        Set Rr = Range("U4:W40")
   
7.        Set Rr1 = Range("X4:Z40")
   
8.        Rr1.ClearContents
   
9.    Dim ArrRng(2) As Range
   
10.        Set ArrRng(0) = Range("D4:D15")
    
11.        Set ArrRng(1) = Range("H4:I19")
    
12.        Set ArrRng(2) = Range("M4:O26")
    
13.    Dim Rng As Range
    
14.        For i = 0 To 2
    
15.            Set Rng = ArrRng(i)
    
16.            Debug.Print Rng.Address
    
17.            Select Case Rng.Columns.Count
    
18.                 Case 1
    
19.                    For ii = 1 To Rng.Rows.Count
    
20.                        For ii1 = 1 To Rr.Rows.Count
    
21.                            Debug.Print Rng(ii, 1).Address, Rr(ii1, 1).Address
    
22.                            If Rng(ii, 1) = Rr(ii1, 1) Then
    
23.                                'Debug.Print Rng(ii, 1), Rr(ii, 1), Rng(ii1, 1).Address, Rr(ii1, 1).Address
    
24.                                Rr1(ii1, 1) = Rng(ii, 2)
    
25.                                'Exit For
    
26.                            Else
    
27.                                'Rr1(ii1, 1) = ""
    
28.                            End If
    
29.                        Next ii1
    
30.                    Next ii
    
31.                 Case 2
    
32.                    For ii = 1 To Rng.Rows.Count
    
33.                        For ii1 = 1 To Rr.Rows.Count
    
34.                            If Rng(ii, 1) = Rr(ii1, 1) And Rng(ii, 2) = Rr(ii1, 2) Then
    
35.                                Rr1(ii1, 2) = Rng(ii, 3)
    
36.                                'Exit For
    
37.                            Else
    
38.                                'Rr1(ii1, 2) = ""
    
39.                            End If
    
40.                        Next ii1
    
41.                    Next ii
    
42.                 Case 3
    
43.                    For ii = 1 To Rng.Rows.Count
    
44.                        For ii1 = 1 To Rr.Rows.Count
    
45.                            If Rng(ii, 1) = Rr(ii1, 1) And Rng(ii, 2) = Rr(ii1, 2) And Rng(ii, 3) = Rr(ii1, 3) Then
    
46.                                Rr1(ii1, 3) = Rng(ii, 4)
    
47.                            Else
    
48.                                'Rr1(ii1, 3) = ""
    
49.                            End If
    
50.                        Next ii1
    
51.                    Next ii
    
52.            End Select
    
53.        Next i
    
54.       
    
55. End Sub

复制代码

采用字符串连接方法，程序简化了不少。
                 Str1 = ""
                 Str2 = ""
                 For jj = 1 To Rng.Columns.Count
                     Str1 = Str1 & Rr(ii, jj)
                     Str2 = Str2 & Rng(ii1, jj)
                 Next jj
                 If Str1 = Str2 Then

1. 
   
2. Sub Del4()
   
3.    Dim Rr As Range, Rr1 As Range
   
4. 
   
5.       
   
6.        Set Rr = Range("U4:W40")
   
7.        Set Rr1 = Range("X4:Z40")
   
8.        Rr1.ClearContents
   
9.    Dim ArrRng(2) As Range
   
10.        Set ArrRng(0) = Range("D4:D15")
    
11.        Set ArrRng(1) = Range("H4:I19")
    
12.        Set ArrRng(2) = Range("M4:O26")
    
13.    Dim Rng As Range
    
14.    Dim Str1, Str2
    
15.        For i = 0 To 2
    
16.            Set Rng = ArrRng(i)
    
17. 
    
18.            For ii = 1 To Rr.Rows.Count
    
19.               For ii1 = 1 To Rng.Rows.Count
    
20.                  Str1 = ""
    
21.                  Str2 = ""
    
22.                  For jj = 1 To Rng.Columns.Count
    
23.                      Str1 = Str1 & Rr(ii, jj)
    
24.                      Str2 = Str2 & Rng(ii1, jj)
    
25.                  Next jj
    
26.                  'Debug.Print Str1, Str2
    
27.                  If Str1 = Str2 Then
    
28.                      Rr1(ii, Rng.Columns.Count) = Rng(ii1, 1 + Rng.Columns.Count)
    
29.                  End If
    
30.               Next ii1
    
31.            Next ii
    
32.        Next i
    
33.       
    
34. End Sub

复制代码

观点，只有用字符串连接方法，是实现目标需的最佳解决方案之一。

ning84

优化一下程序

1. '
   
2. Sub Del5()
   
3.    Dim Rr As Range, Rr1 As Range
   
4. 
   
5.       
   
6.        Set Rr = Range("U4:W40")
   
7.        Set Rr1 = Range("X4:Z40")
   
8.        Rr1.ClearContents
   
9.    Dim ArrRng(2) As Range
   
10.        Set ArrRng(0) = Range("D4:D15")
    
11.        Set ArrRng(1) = Range("H4:I19")
    
12.        Set ArrRng(2) = Range("M4:O26")
    
13.    Dim Rng As Range
    
14.    Dim tmp, Str1, Str2
    
15.        For i = 0 To 2
    
16.            Set Rng = ArrRng(i)
    
17.            tmp = AssoTwoRng(Rr, Rr(, i + 4), Rng, Rng(ii1, 2 + i))
    
18.        Next i
    
19. End Sub
    
20. 
    
21. ''
    
22. Function AssoTwoRng(baseRng As Range, bColRng As Range, findRng As Range, fColRng As Range)
    
23.    Dim Str1, Str2
    
24.    Dim Rng As Range, oRng As Range
    
25.       For ii = 1 To baseRng.Rows.Count
    
26.            For ii1 = 1 To findRng.Rows.Count
    
27.                  Str1 = ""
    
28.                  Str2 = ""
    
29.                  For jj = 1 To findRng.Columns.Count
    
30.                      Str1 = Str1 & baseRng(ii, jj)
    
31.                      Str2 = Str2 & findRng(ii1, jj)
    
32.                  Next jj
    
33.                  If Str1 = Str2 Then
    
34.                      Set oRng = Application.Intersect(baseRng(ii, 1).EntireRow, bColRng.EntireColumn)
    
35.                      Set Rng = Application.Intersect(findRng(ii1, 1).EntireRow, fColRng.EntireColumn)
    
36.                      Debug.Print oRng.Address, Rng.Address
    
37.                      oRng = Rng
    
38.                  End If
    
39.            Next ii1
    
40.       Next ii
    
41. End Function
    

复制代码

zopey

字符串连接 判断是否相同 ，是特例情况下 取巧的办法，等于抛弃了 数据结构的差异。
并没有 if and 通用 灵活，能处理 更多的 情况。