第2个回答 2018-12-01
写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列是数值还是字符都可以