小编Swo*_*sis的帖子

我有以下代码,我正努力工作.这是我第一次在VBA中处理数组.这是我想要的简单英文版本:

1. 从工作表SSB加载带有A列的SSBarray.
2. 使用工作表EDM中的第I列加载EDMarray.
3. 比较上面的数组并根据可能的匹配排序为两个新的数组IDarray和noIDarray.
4. 将新数组输出到各自的工作表中.

第4步是暂时的,只是确保代码工作正常.整个项目正在将3张表中的所有数据编译成这两个列表.工作表1只有数据点A,工作表2可能有也可能没有数据点A,B和/或C,而工作表3可能有也可能没有数据点A,B和/或C.我的代码是我开始检查工作表1中的所有数据点A是否在工作表2中.运行时间也是一个因素.在这一点上,我会接受任何我能得到的帮助.谢谢.

'Build Arrays
Dim i As Long, j As Long
Dim SSBarray
Dim EDMarray
Dim IDarray
Dim noIDarray
Dim YCounter As Long
Dim NCounter As Long
Dim inArray As Boolean
endSSB = SSB.Range("A" & Rows.Count).End(xlUp).Row
endEDM = EDM.Range("A" & Rows.Count).End(xlUp).Row
BBlast = BB.Range("A" & BB.Range("A" & Rows.Count).End(xlUp).Row)

ReDim SSBarray(1 To endSSB)
ReDim EDMarray(1 To endEDM)

For i = 2 To endSSB
    SSBarray(i) = SSB.Cells(i, 1).Value2
Next i

For i = 2 To endEDM
    EDMarray = …