3楼: Originally posted by 灰常焱龑 at 2016-10-03 10:20:38
或者VBA宏
Sub 宏1()
'
' 宏1 宏
'

'
Dim i As Integer
For i = 1 To 100 Step 1
Cells(2 * i, 3) = Cells(i, 1)
Cells(2 * i - 1, 3) = Cells(i, 1)
Next
End Sub