在VBA中如何获得某些项目超出范围

我有一个很大的范围内有13138个单元格，就像这样：

**(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 

我需要2个“Item：”单元格之间的所有单元格

 HO HO HO HO MO MFG, MO MO MO HO 

等等。 这怎么能实现？

Answer 1

尝试使用下面的代码

---

 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 

---

结果将在B列。 见下面的单元