基於邏輯對行進行編號

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