2016-08-05 35 views
0

Ich habe eine große Reichweite erhalten, die 13138 Zellen in sich hat, wie folgt aus:Wie bestimmte Artikel aus Bereich in VBA

 **(A)** 
    (1) Item: 
    (2) HO 
    (3) Item: 
    (4) HO 
    (5) Item: 
    (6) HO 
    (7) Item: 
    (8) HO 
    (9) Item: 
    (10) MO 
    (11) Item: 
    (12) MFG 
    (13) MO 
    (14) Item: 
    (15) MO 
    (16) Item: 
    (17) HO 
    (18) Item: 
    (19) MFG 
    (20) MO 
    (21) Item: 
    (22) MFG 
    (23) Item: 
    (24) MFG 

ich alle Zellen zwischen 2 müssen „Item:“ wie gruppierte Zellen

HO 
HO 
HO 
HO 
MO 
MFG, MO 
MO 
MO 
HO 

und so weiter. Wie kann dies erreicht werden?

Antwort

1

Versuchen mit folgenden Code


Option Explicit 
Sub test() 
    Dim lastrow As Long, i As Long 
    Dim out As String 
    lastrow = Range("A" & Rows.Count).End(xlUp).Row 
    For i = 1 To lastrow 
     Do While Range("A" & i).Value <> "Item" 
      If out = "" Then 
       out = Range("A" & i).Value 
      Else 
       out = out & ", " & Range("A" & i).Value 
      End If 
      If i < lastrow Then 
       i = i + 1 
      Else 
       Exit Do 
      End If 
     Loop 
     Range("B" & Range("B" & Rows.Count).End(xlUp).Row + 1).Value = out 
     out = "" 
    Next i 
End Sub 

Die Ergebnisse werden in B-Säule sein. Siehe unten unter

enter image description here