Question

我在第二列中有一个包含149k项目的Excel传播器，如下所示：E1，E2-4，E5，E6，E7-10 ......等。我想要做的是遍历该列，但是在它所拥有的行上：E2-4我希望它在它上面插入一行并分解数字。例如：E1，E2-4将变为：E1，E2，E3，E4。有没有办法使用宏来做到这一点？任何帮助将不胜感激。

Answer 1

Zach让我给你一些帮助，在你提出这个问题之前，这绝不是一个“真正的答案”更多关于你需要研究的指导。这就是你想要做的事情

Dim Position Long
Dim LastRow long
LastRow = Last Used Row 'many ways to find this
For I = 0 to LastRow
   if instr(Activecell.offset(I,0),"-") >0 then 'would be better as array but this is how most people do things
      position = I -1
      add rows and values
      I= position
   endif
next

如果您想要更高级和更快的路径而不是使用Offset，请将列中的所有值存储在数组变量中并执行类似操作。就像我说这不是一个答案，我会尝试理解这个并做类似的事情，然后当你撞墙时问另一个问题（如果你撞墙）

使用VBA迭代Excel中的单元格

1 个答案: