excel表格怎么做隔行复制隔行粘贴

Excel小技巧

写VBA代码吧百
Sub sdd()
Dim i As Integer, rg As Range
For i = 2 To Range("A65536").End(xlUp).Row Step 2
If i = 2 Then Set rg = Cells(i, 1)
Set rg = Union(rg, Cells(i, 1))
Next
rg.Copy
Range("B1").Select
ActiveSheet.Paste
End Sub
这段代码是复制双数行度然后粘贴到版B列里边,不管A列是数值还是字符都权可以