第2个回答 2014-02-21
用如下VBA程序:
Sub try()
Dim rag As Range, i As Integer, j As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
Set rag = Range("A" & i)
If rag.Value <> "" Then
Rows(rag.Row + 1 & ":" & rag.Row + 1).Select
For j = 1 To rag.Value
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next j
End If
Next i
End Sub本回答被提问者和网友采纳