excel表格隔N行抽取

Question

如题：一个有几万条的表格，我要从中每隔100行，选出一条数据，到新的一张表里面，原来的不要动。谢谢各位了！我要冲抽取出来的数据中作分析

Answer 1

两个方法可以实现：

假设条件：原来的数据放在sheet1里面，sheet1名称就是sheet1：

第一：使用公式，在sheet2（你要存放抽取数据的新表）A1里面输入公式 =OFFSET(Sheet1!A$1,100*(ROW()-1),0)
向右拖动到空白（sheet1里面最后一列），然后向下拖动到空白（最后一行）。
完成你的要求

第二：使用VBA，打开VBA编辑窗口（ALT+F11或者 选择sheet2，点击开发工具-查看代码（EXCEL2007），点击工具 - 宏 - VB编辑窗口），在sheet2代码窗口输入以下代码：
Sub chouqu()
For i = 1 To 655
Rows(i & ":" & i).Value = Sheets(1).Rows("1:1").Offset((i - 1) * 100, 0).Value
Next
End Sub
按F5运行

Answer 2

=offset(sheet1!a$1,row()*100,0)
然后向右复制，再整行向下复制。
offset()函数说明：
第一参数，作为参照系，第二参数是相对于参照系上下偏移的行数，第三参数是偏移的列数。
第四、五参数表示新区域的高度和宽度，可省略。

Answer 3

用VBA搞定比较轻松
把以下代码复制到模块下，运行这个宏，就在sheet2表中生成新的数据（取数据分别是第1行，第101行，第201行，类推
Sub 按钮1_Click()
Dim arr, arr1
Dim r&, i&, x&
r = Range("A65536").End(xlUp).Row
i = Int(r / 100) + 1
ReDim arr(1 To r, 1 To 2)
arr = Range("A1:B" & r)
ReDim arr1(1 To i, 1 To 2)
For x = 1 To i * 100 Step 100
a = a + 1
arr1(a, 1) = arr(x, 1)
arr1(a, 2) = arr(x, 2)
Next x
Sheets("sheet2").Range("A1").Resize(UBound(arr1), 2) = arr1
End Sub

Answer 4

我看错了……居然是每隔100行…… 我就不回答了，Lincoln_niu的比较好