EXCEL问题...急,请各位高人指点

发布网友 发布时间：2023-12-25 06:29

我来回答

共3个回答

热心网友 时间：2024-11-03 19:10

按ALT+F11打开VBA编辑器，插入一个模块，把如下代码放入，把光标停在代码中间，按F5运行。
Public Sub lwy()
For i = 1 To 65536
If Cells(i, 1) = 4 Then '这里假设你的数据在A列，如果你的数据在B列的话，把所有的Cells(i,1)改成Cells(i,2)，如果在C列的话改成3。
Cells(i, 1).EntireRow.Insert
Cells(i, 1).EntireRow.Insert
Cells(i, 1).EntireRow.Insert
i = i + 3
ElseIf Cells(i, 1) = 2 Then
Cells(i, 1).EntireRow.Insert
i = i + 1
End If
Next

End Sub

热心网友 时间：2024-11-03 19:11

按ALT+F11打开VBA编辑器，插入一个模块，把如下代码放入，把光标停在代码第一行，按F5运行。
Sub Macro1()
For i = 1 To 50000 ' 根据列长度设置
If Cells(i, 1) = "" Then End
If IsNumeric(Right(Cells(i, 1), 2)) Then
x = Right(Cells(i, 1), 2) '截取从右2个字符
Else
x = Right(Cells(i, 1), 1) '截取从右1个字符
End If
For j = 1 To x - 1 '循环插入行
Cells(i, 1).Select
If IsNumeric(Right(Cells(i, 1), 2)) Then
w = Cells(i, 1)
q = Left(w, Len(w) - 2)
Else
w = Cells(i, 1)
q = Left(w, Len(w) - 1)
End If
Selection.Insert Shift:=xlDown
Cells(i, 1) = q & j
i = i + 1
Next j
Next i
End Sub

热心网友 时间：2024-11-03 19:16

是否考虑vba？