跳行复制excal数据的问题,希望高手帮忙解答

是这样的,我的一个表格中A列有10万个数据,我需要将这10万个数据分开进行提取,比如A1、A2、A3、A4......A100000 我现在只需要A2、A4、A6、A8..... 的数据,或者A3、A5、A7、A9的数据,不知道大家能不能看懂的我需要,也就是说第一天我要用13579....的数据 第二天要用2468、10的,我在网上没有找到相关快捷的方法,有说一个一个的按CTRL选中复制,少量还行 但是10万个数据根本无法这样操作,还忘高手给个能跳行复制的快捷方法,可以解决我的问题,也肯定能帮助更多有这样需求的朋友,我先在这个替大家谢谢了,方法可行 另有高分赠送!

问题很简单,处理如下:

一、假定说明:
假定在列A的A1:A10000 中有10000个数,列B数据为空(无数据)。

二、处理方法:
1、B1输入“=MOD(ROW(),2)“,然后Enter;(确定偶奇数)
2、 鼠标放在B1单元格右下角,变为黑色的加号时,双击;(向下复制公式),这时B列应该出来 1 ,0,1,0,1,0等一系列数据。
3、单击 B1,选择“数据——自动筛选”,这时A1,B1单元格出现自动筛选的向下小箭头。
4、如果要复制A列中的奇数行,则在B1的小箭头中选择1;如果要复制A列的偶数行,则选择B1单元格中的0;这时,A列里奇数或偶数行的数据显示了,其他数据则隐藏了。
5、单击 A1,按 “Ctrl+Shift+向下箭头”(三健同时按);这就选择了A列的显示行。
6、按F5,选择“定位条件——可见单元格”;这时选择了可见行,且每行有虚线
7、复制
8、另外一个sheet,粘贴。

完毕。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-03-07
用宏吧,录制两个快捷键,一个是复制单行的,一个是复制双行的。
用键ALT+F11打开VBA窗口,双击窗口左边模块,分别粘贴以下的中间代码到模块中间。
以后要复制按一下快捷键就行了。
Sub 复制单行()

myrow = "1:1"
For n = 2 To [A200000].End(xlUp).Row
If n Mod 2 = 1 Then
myrow = myrow & "," & n & ":" & n
End If
Next
Range(myrow).Copy

End Sub

Sub 复制双行()

myrow = "2:2"
For n = 3 To [A200000].End(xlUp).Row
If n Mod 2 = 0 Then
myrow = myrow & "," & n & ":" & n
End If
Next
Range(myrow).Copy

End Sub追问

这个我感觉很好很方便 但是我按照步骤添加后一运行就提示:运行时错误'424' 要求对象

第2个回答  2011-03-07
B1输入公式
=indirect("a"&row()*2-1)
双击B1右下角的实心小黑点,即可把A列奇数行的数据提取到B列

B1输入公式
=indirect("a"&row()*2
双击B1右下角的实心小黑点,即可把A列偶数行的数据提取到B列
第3个回答  2011-03-07
完全用的简单的复制+粘贴好象不可能做到。
不过有个半手工半自动的方法倒可以,前几天刚学的,哈哈!
sheet4:(这个表是原始表,a1-a100000存着你要的东东)
1
2
3
....
sheet5:(目标表)
A1=INDIRECT("sheet4!a"&ROW(A1)*2-1)
B1=INDIRECT("sheet4!a"&ROW(A1)*2)
再一起下拉到10万行,就这累点,呵呵。公式不难,就不多解释了。
这时sheet5表中的
A列就是你要的A1、A3、A5、。。。奇行的数据
B列就是你要的A2、A4、A6、。。。偶行的数据了!
第4个回答  2011-03-07
1.因为有多少列不清楚,最简单的方法,我认为是在新列里,第一行输入G,第二行输入H,选择这两个单元格下拉到需要的行,筛选等于G或等于H的行,就是你需要的内容。
这种方法简单实用,只要你的行有规律,都可以这样做。
2.你如果觉得用下拉方式拖动鼠标到10万行很累,你还可以在菜单上选择“工具”→“选项”,选择自定义序列,在输入序列中输入:G,H(不含冒号),再点击右边的添加,并确定;你再到上面输入和选择的G和H单元格,鼠标指向边框右下角的黑十字,双击,就自动填充G和H到你需要的行了,再筛选,就简单了。
相似回答