Excel怎么隨機抽樣和等距抽樣？

兩個方法可以實現：

假設條件：原來的數據放在sheet1里面，sheet1名稱就是sheet1：

第一：使用公式，在sheet2（你要存放抽取數據的新表）A1里面輸入公式 =Offset(Sheet1!A$1,15*(ROW()-1),0)

向右拖動到空白（sheet1里面最后一列UC），然后向下拖動到空白（最后一行3500+）。

完成你的要求

第二：使用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) * 15, 0)

.Value

Next

End Sub

按F5運行