查人人中国名人网满门抄斩小孩也要杀:Excel表中隔一行抓资料
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 11:21:01
例如有Excel文件如下：
1 张 aaaa
2 张 bbbb
3 张 hhhh
4 张 jjjj
5 王 cccc
6 王 dddd
7 马 eeee
8 马 ffff
我只想要其中的第1、3、5、7行的资料，也就是隔一行抓资料。请问有办法吗？
我也知道Ctrl.可是有一万多条资料，一个一个选可是要疯了的！
有没有什麼函数可以帮助的？
天行健文化老兄，谢谢您，可是按您的方法：
Range("B2,A1:B1,A3:B3,A5:B5").Select
Range("A5").Activate
一万条资料是不是要这样做呢？
Range("B2,A1:B1,A3:B3,A5:B5,A7:B7,A9:B9,A11:B11，A13:B13,A15:B15,A17:B17....,A1999:B1999").Select
Range("A1999").Activate
好麻烦呢！
1 张 aaaa
2 张 bbbb
3 张 hhhh
4 张 jjjj
5 王 cccc
6 王 dddd
7 马 eeee
8 马 ffff
我只想要其中的第1、3、5、7行的资料，也就是隔一行抓资料。请问有办法吗？
我也知道Ctrl.可是有一万多条资料，一个一个选可是要疯了的！
有没有什麼函数可以帮助的？
天行健文化老兄，谢谢您，可是按您的方法：
Range("B2,A1:B1,A3:B3,A5:B5").Select
Range("A5").Activate
一万条资料是不是要这样做呢？
Range("B2,A1:B1,A3:B3,A5:B5,A7:B7,A9:B9,A11:B11，A13:B13,A15:B15,A17:B17....,A1999:B1999").Select
Range("A1999").Activate
好麻烦呢！
以上老兄的回答基本上都可以实现隔行选取，但不能实现批量操作，告诉你一个一劳永逸的方法，就是在工具/宏/vba中编写一段脚本程序，并将脚本程序保存为一个宏即可，该脚本程序举例如下：
Sub 隔行抓取()
' 隔行抓取 Macro
' 快捷键: Ctrl+g
Range("B2,A1:B1,A3:B3,A5:B5").Select
Range("A5").Activate
End Sub
当然有，按住Ctrl键点选就可以了！
当然有，按住Ctrl键点选就可以了！
ctrl
您要用CTRL,SHIFT交替使用就行了!
第一步：在一个新列（暂记为A列）中插入公式=AND(ROW()=ODD(ROW()))，此列值为true表示是奇数行，false为偶数行。
第二步：复制A列，在另一新列（暂记为B列）右键点选择性粘贴，选中“数值”选项，确定。
第三步：按B列排序，这时原奇数行在表的后半部分，偶数行在前半部分，可以很容易选定了。