[已解决]怎样把一列数据分别隔一行隔一列粘贴

sixnu

jrsz 发表于 2013-1-30 15:05
以前学过编程，所以能看懂。。要写代码，2年不用了，忘记了

在你提醒下，我改成Sub d()
    Dim i As Integer
    For i = 2 To 5
    Cells(i, i) = Range("A" & i)
    Next i
End Sub
想说谢谢你的提醒