Excel 两列数据匹配（两列次序不同），含有四个相同字就算正确，如何匹对。

VBA

在使用VBA程序进行匹配时，出现了问题。根据楼主的描述，问题可能是由于函数公式无法胜任而引起的。下面是一份VBA程序代码示例，供参考：Sub CompareArrays()Dim arr1 As Object, arr2 As ObjectSet arr1 = CreateObject("excel.SheetRange")Set arr2 = CreateObject("excel.SheetRange")arr1.Sheet = "Sheet1"arr1.Column = "C:C"For i = 2 To 1000If arr1.Cells(i, 1).Value "" And arr1.Cells(i, 2).Value "" Thenarr2.Sheet = "Sheet1"arr2.Column = "C:C"For j = 1 To iIf arr1.Cells(j, 1).Value "" And arr1.Cells(j, 2).Value "" ThenFor k = 1 To iIf arr1.Cells(k, 1).Value "" And arr1.Cells(k, 2).Value "" ThenIf arr1.Cells(k, 1).Value "" And arr1.Cells(k, 2).Value "" ThenEnd IfNextEnd IfNextNextNextEnd Sub该程序首先定义了两个数组和两个工作表对象。然后在循环中遍历工作表中的所有单元格，并判断其中是否为空格。如果单元格不为空格，则将其值放入相应的数组位置。通过上述程序代码，我们可以实现对两个工作表中的所有单元格进行匹配，并将匹配结果保存在数组中。这样可以方便地进行匹配操作和数据处理。注意：以上仅为示例代码，具体实现时请根据自己的需求进行修改。