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