Question

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

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

小型项目

123小型项目＃1

或

123-4小型项目＃2

大型项目

1234大型项目＃1

或

1234-5大型项目＃2

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

我认为它会沿着＆＃34行;如果单元格中的前四个字符是数字，那么LargeProject = LargeProject + 1，否则SmallProject = SmallProject + 1＆＃34;。只是不知道可以用什么表达式（如果有的话）来实现这一点。

谢谢！

Answer 1

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