Excel VBA：根据单元格中包含的数字插入行

Question

我认为获得所需答案的最简单方法是仅描述整个场景。 我的公司使用Primavera跟踪项目。 调度程序将数据导出到Excel中，并处理数据以供自己使用。 他希望使用宏使这种操作自动化，这样他就不必每次都重复相同的过程。 大部分都非常简单，但是我在这一部分上偶然发现。

工作簿的第一列是项目编号+名称。 项目有两种类型：具有3位数字且带有可选子任务编号的小型项目和具有4位数字且带有可选子任务编号的大型项目。 该单元格由数字和文本组成。 通用格式如下：

小型项目

123小项目＃1

要么

123-4小项目＃2

大型项目

1234大型项目＃1

要么

1234-5大型项目＃2

他插入三行来分隔这两种项目类型（小型项目和大型项目始终合并在一起）。 有没有一种使用VBA来自动化此过程的方法？

我想这将遵循“如果单元格中的前四个字符是数字，则LargeProject = LargeProject + 1，否则SmallProject = SmallProject + 1”。 只是不知道可以使用哪种表达式（如果存在）来完成此任务。

谢谢！

Answer 1

If txt Like "### *" or txt Like "###-*" Then
   'small project
Elseif txt Like "#### *" or txt like "####-*" Then
   'large project
End If