Question

我有一个已放入数组的命名范围;该数组有10个固定列，但任意数量的行。这一点的代码是：

Dim LD As Long
Dim Rng As Excel.Range
Dim vArray() As Variant
Dim varTOne() As Variant
Dim varTTwo() As Variant
Dim DSheet As Worksheet
Set DSheet = Worksheets("DataSheet")

LD = DSheet.Cells(Rows.count, "A").End(xlUp).row

Set Rng = ThisWorkbook.Worksheets("DataSheet").Range("A5:J" & LD)
vArray = Rng

A和B中的两个列用于唯一标识某个结果，该结果位于最后一列（J）中。我需要首先确保结果确实存在于数组（存在）中，然后提取结果。为了确保存在，我想合并这两列A和B，这将给我一个“唯一键”并将此键与列表匹配。这比A和B列的嵌套循环更快！解决这个问题的最佳方法是什么？我设法将这两列分开：

 varTOne = Application.Index(vArray, , 1)
 varTTwo = Application.Index(vArray, , 2)

但是有些人如何使用How do I Merge two Arrays in VBA?中的任何一个来正确合并它们我在这里做错了什么？

是否可以在没有及时循环的情况下合并数组中的两列？

合并数组中的两列或拆分两列并合并两个数组

0 个答案: