excel 如何隔行复制-office隔行粘贴,office不能复制粘贴

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列是数值还是字符都容可以