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

Question

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

Answer 1

问题很简单，处理如下：

一、假定说明：
假定在列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，粘贴。

完毕。

Answer 2

用宏吧，录制两个快捷键，一个是复制单行的，一个是复制双行的。
用键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' 要求对象

Answer 3

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

B1输入公式
=indirect("a"&row()*2
双击B1右下角的实心小黑点,即可把A列偶数行的数据提取到B列

Answer 4

完全用的简单的复制+粘贴好象不可能做到。
不过有个半手工半自动的方法倒可以，前几天刚学的，哈哈！
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、。。。偶行的数据了！

Answer 5

1.因为有多少列不清楚，最简单的方法，我认为是在新列里，第一行输入G，第二行输入H，选择这两个单元格下拉到需要的行，筛选等于G或等于H的行，就是你需要的内容。
这种方法简单实用，只要你的行有规律，都可以这样做。
2.你如果觉得用下拉方式拖动鼠标到10万行很累，你还可以在菜单上选择“工具”→“选项”，选择自定义序列，在输入序列中输入：G,H（不含冒号），再点击右边的添加，并确定；你再到上面输入和选择的G和H单元格，鼠标指向边框右下角的黑十字，双击，就自动填充G和H到你需要的行了，再筛选，就简单了。