在VBA中比较两个数组并写入另一个工作表,可以通过以下步骤实现:
以下是一个示例代码:
Sub CompareArrays()
Dim arr1 As Variant
Dim arr2 As Variant
Dim resultSheet As Worksheet
Dim i As Long
Dim j As Long
Dim resultRow As Long
' 假设数组已经被填充了数据
arr1 = Array("A", "B", "C", "D")
arr2 = Array("B", "D", "E", "F")
' 创建新的工作表
Set resultSheet = ThisWorkbook.Sheets.Add
' 初始化结果行数
resultRow = 1
' 遍历第一个数组
For i = LBound(arr1) To UBound(arr1)
' 遍历第二个数组
For j = LBound(arr2) To UBound(arr2)
' 比较两个数组的元素
If arr1(i) = arr2(j) Then
' 将相等的元素写入新工作表
resultSheet.Cells(resultRow, 1).Value = arr1(i)
resultRow = resultRow + 1
Exit For ' 找到匹配的元素后,退出内部循环
End If
Next j
Next i
End Sub
这段代码会比较两个数组arr1
和arr2
中的元素,并将相等的元素写入新创建的工作表中。你可以根据实际情况修改数组的内容和工作表的位置。
领取专属 10元无门槛券
手把手带您无忧上云