[已解决]VBA数组中两个项和单元格的比较

simengzhixia

数组中ARRY(A,B,C,D),其中我想比较ARRY(A,B)中A和B的值同单元格range（a2：b2”）是否一致怎样做比较？谢谢了{:031:}

最佳答案

月排行榜 / 总排行榜

liuts

2011-7-12 07:58

回复 simengzhixia 的帖子

1. 
   
2. Sub 比较()
   
3.     Dim arr, brr, str1 As String, str2 As String
   
4.     arr = Array("A", "B", "C", "D")
   
5.     str1 = Application.Index(arr, 1) & "-" & Application.Index(arr, 2)
   
6.     str2 = [a2] & "-" & [b2]
   
7. If str1 = str2 Then
   
8. MsgBox "重复"
   
9. Else
   
10. MsgBox "不重复"
    
11. End If
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

liuts

1. Sub 比较()
   
2.     Dim arr, brr(1)
   
3.     arr = Array("A", "B", "C", "D")
   
4.     For i = 0 To 1
   
5.         If Cells(2, i + 1) = arr(i) Then
   
6.             brr(i) = True
   
7.         Else
   
8.             brr(i) = False
   
9.         End If
   
10.     Next
    
11.     MsgBox brr(0) & " " & brr(1)
    
12. End Sub

复制代码

供参考

simengzhixia

回复 liuts 的帖子

非常感谢，能达成两个单元格和数组中两个数同时比较吗？我想判断说是相同的话就认为是重复，两个不同时相同就不为重复，万分感谢

liuts

回复 simengzhixia 的帖子

1. 
   
2. Sub 比较()
   
3.     Dim arr, brr, str1 As String, str2 As String
   
4.     arr = Array("A", "B", "C", "D")
   
5.     str1 = Application.Index(arr, 1) & "-" & Application.Index(arr, 2)
   
6.     str2 = [a2] & "-" & [b2]
   
7. If str1 = str2 Then
   
8. MsgBox "重复"
   
9. Else
   
10. MsgBox "不重复"
    
11. End If
    
12. End Sub
    

复制代码

yangkeyuan

楼主的代码好用，学习了

mg172

学习了