Excel VBA：基于单元格中包含的数字插入行

我认为最简单的方法就是只描述整个场景。 我的公司使用Primavera跟踪项目。 调度程序将数据导出到Excel中并操作数据以供自己使用。 他希望这个操作能够使用macros来自动化，这样他就不必每次都重复相同的过程。 大部分是相当简单的，但我偶然发现了这一部分。

工作簿中的第一列是项目编号+名称。 有两种types的项目：具有3位数字的小项目和可选的子任务号码，大项目有4位数字和可选的子任务号码。 单元格由数字和文本组成。 一般格式如下：

小项目

123小项目＃1

要么

123-4小项目＃2

大型项目

1234大项目＃1

要么

1234-5大型项目＃2

他插入三行来分隔两个项目types（小项目和大项目总是混在一起）。 有没有办法使用VBA来自动化这个过程？

我认为它会沿着“如果单元格中的前四个字符是数字，然后LargeProject = LargeProject + 1，否则SmallProject = SmallProject + 1”的行。 只是不知道什么expression（如果存在）可以用来完成这一点。

谢谢！

Answer 1

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