Sub A()For i = Cells(1, Columns.Count).End(1).Column To 1 Step -1If Cells(1, i) = "" Or Cells(1, i) = 0 ThenCells(1, i).SelectSelection.Insert Shift:=xlToRightEnd IfNextEnd Sub试下这个
