如何从新周期打印阵列和值到下一行

这是我正在使用的代码的一部分，我有一个问题。我有值（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）你的代码？ –

如何从新周期打印阵列和值到下一行

回答

相关问题