写VBA代码吧 Sub sdd()Dim i As Integer, rg As RangeFor i = 2 To Range("A65536").End(xlUp).Row Step 2If i = 2 Then Set rg = Cells(i, 1)Set rg = Union(rg, Cells(i, 1)) Nextrg.CopyRange("B1").SelectActiveSheet.PasteEnd Sub这段代码是复制双数行然后粘贴到B列里边,不管A列是数值还是字符都可以
2354
1
639
611
568
1
568
552
548
463
445
1
419
2024-03-25 06:57
admin