Excel:复制同一列中的数据组

时间:2016-06-24 08:33:25

标签: excel vba macros extract

我从一个看起来像这样的外部派对上获得一张Excel表。 这是一列,每个[]是一行。

[Title]
 [Cat]
  [subtitle]
   [ID]
   [ID]
   [ID]
  [subtitle]
   [ID]
 [Cat]
  [subtitle]
   [ID]
[Title]
 [Cat]
  [subtitle]
   [ID]

我知道这不是理想的格式,但这是我得到的唯一格式。现在我想从这一列中选择数据范围:title cat to cat中的title title和cat subtitle to subtitle。这是可能的,如果可能的话怎么样?

提前致谢。

1 个答案:

答案 0 :(得分:0)

这似乎是基于单元格的第一个字符的Select Case的理想情况:

For i = 1 To 15
    Select Case InStr(Cells(i, 1).Value, "[")
        Case 1
            'This is a Title
        Case 2
            'This is a Cat
        Case 3
            'This is a subtitle
        Case 4
            'This is an ID
    End Select
Next i