作者:乔山办公网日期:
返回目录: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列是数值还是字道符都可以
1、首先,我来们打开一个excel表格来演示,如图所示,我们需要隔行复制表格中的内容。
2、为达到隔行复制的目的,我们在表格D列中创建一个辅助列,如图源所示,间隔输入1和0。百
3、光标移到图中位置,如图所示,点击工具栏“排序和筛选”,点击“筛选”。
4、点击筛选下拉箭头,度如图所示,选择“数字筛选”,去掉数字“0”前面的对勾,点击确定。
5、此时,筛选结果就出来了,只显示隔行的表格内容,我们把它们选中复制、粘贴就可以了。
6、粘贴完成以后,删除辅助列,就达到隔行复制的效果了,如图所示。
选择A:B两列 编辑 定位 或CTRL+G或F5 定位条件 空值 确定
输入 =↑ (键盘上的等于号和向上的箭头)
ctrl +enter
选择A:B两列 复制 右键单击A1 选择性粘贴 数值 确定
Excel小技巧