发布网友 发布时间:2023-07-14 12:06
共1个回答
热心网友 时间:2024-12-04 11:07
假设你的品名在A列,从第二行开始,用VBA可以做到,步骤如下:
按ALT+F11,在右边输入(或粘贴)如下代码:
Sub insertblank()
Dim i As Integer
i = 2
Do Until Range("A" & i) = ""
If Range("A" & i + 1) <> Range("A" & i) Then
Rows(i + 1).Insert
i = i + 1
End If
i = i + 1
Loop
End Sub
点击运行(工具栏的绿色三角形按钮)或按F5键。