兩個方法可以實現：

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

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

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

完成你的要求

第二：使用VBA，打開VBA編輯窗口（ALT+F11或者選擇sheet2，點擊開發工具-查看代碼（EXCEL2007），點擊工具-宏-VB編輯窗口），在sheet2代碼窗口輸入以下代碼：

Subchouqu()

Fori=1To655

Rows(i&":"&i)

.Value

=Sheets(1).Rows("1:1").Offset((i-1)*15,0)

.Value

Next

EndSub

按F5運行