如何從新週期打印陣列和值到下一行

這是我正在使用的代碼的一部分，我有一個問題。我有值（masyvas）數組，我開始新循環通過使用masyvas（i，1）值找到其他值，然後我需要新的值將打印在masyvas（我，2），我需要將它們分組。它需要像這樣：如何從新週期打印陣列和值到下一行

991988 Gaz.duon.sk 「Giros」 gaiv.g.1,5L5_PETØFLAT1,5

 PALINK

117388 Silp.gaz.nat.min.v「Tiche」 1,5L5_PETØFLAT1,5

 PALINK 
     RIMI LIETUVA 
     ŠIAULIŲ TARA

111388 Gaz.nat.min.v 「Tiche」 1,5L寵物5_PETØFLAT1,5

 PALINK 
     AIBĖS LOGISTIKA 
     AIBĖS LOGISTIKA 
     RIMI LIETUVA 
     ŠIAULIŲ TARA

How it looks now from marked 1 it goes wrong

Data sheet where i get array values

這裏是我的代碼部分在那裏我現在有這個問題，打印新值旁邊masyvas（1,2），但不低於我所需要的。

lastrow2 = Sheets("lapas").Cells(Rows.Count, 1).End(xlUp).Row 

rub = lastrow2 
cub = 3 

ReDim masyvas(1 To rub, 1 To cub) 
For i = 1 To rub 
    For j = 1 To cub 
     masyvas(i, j) = Sheets("lapas").Cells(i, j).Value 'array gets values from filtered data in AKCIJOS sheet 
    Next 
Next 

Sheets("lapas").Range("A1:C100").Clear 



For i = 1 To rub Step 1 
Set rng2 = grafikas.Cells(6 + h, 2) 

    prekeskodas = masyvas(i, 1) 


     For m = 2 To lastrow 
      If akcijos.Cells(m, 8) >= laikas And akcijos.Cells(m, 8) <= laikas2 Then 
       If prekeskodas = akcijos.Cells(m, 4) Then 

       grafikas.Cells(7 + r, 2).EntireRow.Select 
       Selection.Insert Shift:=xlDown 
       grafikas.Cells(7 + r, 3) = akcijos.Cells(m, 3) 

       r = r + 1 
       h = r 
       End If 

      End If 
     Next m 

    For j = 1 To cub Step 1 

     rng2.Offset(i - 1, j - 1).Value = masyvas(i, j) 

    Next 


Next

來源

2017-07-28 Stalkeris

請正確編輯問題，以便我們可以看到你想要的輸出是什麼。從你發佈的內容來看，很難說你想達到的目標。 –

您沒有提供任何數據的截圖，所以很難說您的問題和期望的輸出是什麼，但請嘗試下面的代碼。我標記了改變的行。

For i = 1 To rub 
prekeskodas = masyvas(i, 1) 

For m = 2 To lastrow 
    If akcijos.Cells(m, 8) >= laikas And akcijos.Cells(m, 8) <= laikas2 Then 
     If prekeskodas = akcijos.Cells(m, 4) Then 

      'masyvas(i, 2) = masyvas(i, 2) & akcijos.Cells(m, 3) 
      masyvas(i, m) = masyvas(i, m) & akcijos.Cells(m, 3) '<------ 

     End If 
    End If 
Next 

For j = 1 To cub 

    rng2.Offset(j - 1, i - 1).Value = masyvas(i, j) '<----- 

Next 
Next

來源

2017-07-28 06:15:15

這段代碼並不適用於我的 – Stalkeris

如果您可以提供[最小，完整和可驗證示例]（https://stackoverflow.com/help/mcve）：「Akcijos」表中的數據結構並需要完整的代碼來重現問題。 –

@Stalkeris順便說一句，你嘗試[調試]（https://stackoverflow.com/documentation/excel-vba/861/debugging-and-troubleshooting/8020/debugger-locals-window#t=201708010630492808329）你的代碼？ –

如何從新週期打印陣列和值到下一行

回答

相關問題