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列是数值还是字符都可以
推荐阅读
- 电脑知识|excel乘除公式怎样植入
- 电脑知识|钢铁是怎样炼成的ppt，钢铁是怎样炼成的趣味PPT
- 电脑知识|表格中怎样固定表头，excel筛选怎么固定表头
- 电脑知识|电脑关不了机是怎么回事，电脑关不了机是怎么回事笔记本
- 电脑知识|软键盘怎么打开，电脑上怎么调出小键盘
- 电脑知识|电脑网页打不开怎么回事，为什么电脑什么网站都打不开
- 电脑知识|电脑内存怎么看，怎么看电脑总共多大内存
- 电脑知识|电脑安全模式怎么进，win10按f8无法进入安全模式
- 电脑知识|wifi万能钥匙怎么用，wifi万能钥匙怎么用别人家无线网
- 电脑知识|怎么看电脑显卡，r7m260显卡能玩游戏吗