查找空白项指数中的二维数组的Excel VBA

我有一个二维数组Dim Line_Qty(6, 2)其值在它类似如下：查找空白项指数中的二维数组的Excel VBA

**Date  Line_No Quantity** 

2016-11-15 1  5856 

2016-11-15 2  5451 

2016-11-15 3  5499 

2016-11-15  

2016-11-15  

2016-11-15

什么，我想找到的第一个空是Line_Qty(4, 1)指数

这样做的目的是我粘贴这些值在Excel表中，我想停止粘贴，直到数量的最后一项。

我粘贴代码是这样

For i = 0 To 6 
For j = 0 To 2 

Worksheets("DY_SET").Cells(i + 1, j + 1).Value = Line_Qty(i, j) 
Worksheets("DY_SET").Range("A" & i + 2).NumberFormat = "yyyy-mm-dd" 

Next j 
Next i

希望我自己清楚，并在此先感谢

来源

2016-11-30 Tahmaseeb

您想退出这两个循环？ – tjb1

是的，我想退出两个循环，因为我不想只有没有lineno和数量的日期。所以循环应该以最终数量值退出。 – Tahmaseeb

你可以先“截断”的数组，然后粘贴幸存的值，比如如下：

Dim Line_QtyCopy(0 to 6, 0 to 2) As Variant 

' search Line_Qty first row with empty qty 
For i = 0 To 6 
    If Line_Qty(i, 2) = "" Then Exit For 
Next i 

With Worksheets("DY_SET").Range("A1") '<--| reference target range 
    If i <7 Then '<--| if found empty qty before reaching array end 
     i = i - 1 '<--| update row index to last not emoty one 
     ReDim Line_QtyCopy(0 to i, 0 to 2) '<--| size a new array to the number of rows 
     ' fill it up to last not empty qty in Line_Qty 
     For i = 0 To i 
      For j = 0 To 2 
       Line_QtyCopy(i,j) = Line_Qty(i, j) 
      Next 
     Next 
     .Resize(i).Value = Line_QtyCopy '<--| write it down from cell A1 
    Else 
     .Resize(6).Value = Line_Qty 
    End If 
End With

来源

2016-11-30 14:40:43 user3598756

非常感谢，它完美的作品，我在想索引的角度来看，这就是为什么我被卡住了，截断阵列甚至在我的脑海中。再次感谢。 – Tahmaseeb

不客气 – user3598756

此代码逃脱循环时，阵列的某些值为空。那是你需要的吗？

For i = 0 To 6 
    For j = 0 To 2 
     If Line_Qty(i, j) = "" Then Exit For 
     Worksheets("DY_SET").Cells(i + 1, j + 1).Value = Line_Qty(i, j) 
    Next j 
    Worksheets("DY_SET").Range("A" & i + 2).NumberFormat = "yyyy-mm-dd" 
Next i

来源

2016-11-30 14:02:48 Limak

谢谢@Limak，我有点捣碎你的答案user3598756得到我自己的答案。感谢您的帮助:) – Tahmaseeb

查找空白项指数中的二维数组的Excel VBA

回答

相关问题