我有个很大的excel数据。大概六十万行，很多都是没用的数据，我想隔1000个取一个数，请问命令该怎么写？？

Question

如题所述

Answer 1

假设这些数据是A列
B1输入
=OFFSET($A$1,(ROW(A1)-1)*1000,)
下拉，依此取的就是A1 A1001 A2001 A3001，即隔一千行取一个数。
如果你要的是很多列，那假设你这是sheet1
sheet2表A1输入
=OFFSET(sheet1!A$1,(ROW(A1)-1)*1000,)
公式右拉，并下拉。即可追问

请问有没有ＶＢＡ的命令？？ＱＱ３０９７１００５７，可否细聊？？多谢多谢

追答

sub 取数()
j=range("A1048576").end(xlup).row() /1000
for i = 1 to j
cells(j,2) = cells((i-1 )*1000+1 , 1)
next
end sub
意思是将A列中从第1行开始，每隔1000行取一个值放在B列