30分求助excel中一个弱弱的问题

来源：百度知道 编辑：UC知道 时间：2024/06/29 21:04:43
请问如何将指定列中特定行的数据，复制到另外一列中。
比如A列中有5万个数据
我想让B1=A1；B2=A5，B3=A10，B4=A15……以此类推
最后A列的5万个数据填充到B列中成为1万个数据（也就是每隔5行取一个数据到B列中）不用vba能做么？对vba不太了解，如使用vba请说的详细些，并且请测试通过后再回答，谢谢！

拖动1000行有点麻烦
宏（vba）
将以下内容粘贴到宏（visual basic）编辑器，F5运行
Sub a() '定义宏
ActiveSheet.Cells(1, 2) = ActiveSheet.Cells(1, 1) '第一行A1=B1
i = 5 '从A1列第五行开始
Do While ActiveSheet.Cells(i, 1) <> "" '如果A1列有内容执行一下语句
ActiveSheet.Cells(i / 5 + 1, 2) = ActiveSheet.Cells(i, 1) 'B列第i/5+1行=A列第i行
i = i + 5 '行数加5
Loop '循环计算
End Sub '结束宏

B1=A1；B2=A6，B3=A11，B4=A16……以此类推

b1=indirect("a"&(row()-1)*5+1) 或 =INDEX(F:F,(ROW()-1)*5+1)
拖到b10000

在B1输入=A1，在B2输入=INDIRECT("A"&(ROW()-1)*5)，然后把B2向下拖动复制

b2=offset($a$1,row(a1)*5-1,)