基于逻辑对行进行编号

Question

在下图的左侧，您可以看到我的Excel工作表的当前状态。

注意：关于编号的全部内容。

目前需要编号来处理工作表。但是在较新版本中，工作表看起来就像是图像的右侧。

为了使新版本正常运行，我正在寻找一个可以删除数字并输出图像右侧的宏。

但是如果我因某些原因需要回到旧版本，我也想知道如何将编号放回去。

Answer 1

执行以下操作。

for i=1 to range("a500000").end(xlup).row

 cells(i,1).select

 if len(selection.offset(0,1))<=1 then
    activecell.value = ""
 end if

 if len(selection.offset(0,3))<=1 then
    activecell.offset(0,2).value = ""
 end if
next i