Tag: vba multidimensional

将multidimensional array的行发送到工作表: 我有一个大的二维（550行，260列）数组，并希望将数组的整行发送到一个电子表格（不是在数组中相同的顺序）。我坚持从二维数组中挑选一个单独的行（比如第12行）并将其放在工作表上。你设定的目的地resize的单元格？请任何帮助将不胜感激！

ReDim在Excel VBA中用multidimensional array保存: 我可以得到这个工作，但不知道这是否是正确的或最有效的方式做到这一点。详细信息：遍历151行，然后将这些行的列A和B仅分配给基于列C条件的二维数组。根据标准，在arrays中只需要151行中的114个。我知道，使用ReDim Preserve，您只能调整最后一个数组维度，并且不能更改维数。所以我已经使用LRowvariables调整了数组中的行的总数为151行，但是我只需要在数组中的实际行数在variablesValidRow所以看起来（151-114）= 37多余的行在数组中作为ReDim保留线的结果。我想使arrays只有它所需要的那么大，这是114行不是151，但不知道这是可能的，看下面的代码和任何帮助非常赞赏，因为我是新的arrays，花了两个最好的部分天看着这个。注意：列是一个常量没有问题，但行不同。 Sub FillArray2() Dim Data() As Variant Dim ValidRow, r, LRow As Integer Sheets("Contract_BR_CONMaster").Select LRow = Range("A1").End(xlDown).Row '151 total rows Erase Data() For r = 2 To LRow If Cells(r, 3).Value <> "Bridge From" And Cells(r, 3).Value <> "Bridge To" Then ValidRow = ValidRow + 1 ReDim […]

使用findnext填充multidimensional arrayVBA Excel: 我的问题实际上涉及一个问题，扩展在EXCEL VBA商店search结果的数组？在这里，Andreas试图search一列，并将命中保存到一个数组。我正在尝试相同的。但不同的是（1）find一个值（2）我想复制不同的值types从（3）单元格在findsearch值的同一行，（4）到一个二维数组。所以这个数组（概念上）看起来像这样： Searchresult.1st SameRow.Cell1.Value1 SameRow.Cell2.Value2 SameRow.Cell3.Value3 Searchresult.2nd SameRow.Cell1.Value1 SameRow.Cell2.Value2 SameRow.Cell3.Value3 Searchresult.3rd SameRow.Cell1.Value1 SameRow.Cell2.Value2 SameRow.Cell3.Value3 Etc. 我使用的代码如下所示： Sub fillArray() Dim i As Integer Dim aCell, bCell As Range Dim arr As Variant i = 0 Set aCell = Sheets("Log").UsedRange.Find(What:=("string"), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, _ SearchFormat:=False) If […]