如何在excel中提取指定行的数据到指定列中?
文章插图
如你的数据在A列，那么在B1输入“姓名”，C1输入“年龄”，D360问答列输入“备注"
B2输入公式
=INDIRECT("A"&ROW(A1)*5-4+COLUMN(A1)*2-1)
右拉到C2
选择B2：C2公式下拉完成姓名和船须轴歌龙器年龄的提取
这两项也可分开提取
B2=INDIRECT("A"&ROW(A1)*5-3)
C2=INDIRECT("A"&ROW(A1)*5-1)
在D2中输入公式
=INDIRECT("A"&ROW(A1)*5)
公式下拉完成
如果用VBA就更方便了
代码如下
Subtest()
Dimarr,brr(),x&,i&
arr=照国色矿背去算解Range("A1:A"&Range("A65536").End(xlUp).Row)
Forx=1ToUBound(arr)Step5
i=i+1
ReDimPreservebrr(1To3,0Toi)
brr(1,i)=arr(x+1,1)
brr(2,i)=arr(x+3,1)
brr(3,i)=arr(x+4,1)
Nextx
brr(1事剂确,0)="姓名"
brr(2,0)="年龄"
brr(3,0)="备注"
Ran种静ge("B:D").ClearContents
Range("B:D").Borders.LineStyle=0
WithRang容尽款款长未起航曾响左e("B1").Resize(UBound(brr,2)+1,3)
.Value=https://www.myit5.com/article/Application.Transpose(brr)
.Borders.LineS没伯tyle=1
EndWith
EndSub
运行此宏，连边框都给你检加搞好了 。
【如何在excel中提取指定行的数据到指定列中?】
推荐阅读
- 教你如何把泡面吃得健康
- 如何利用diskgenius格式化u盘
- 姜汤面在家怎么做？姜汤面家常做法
- 苹果x如何用农行k宝
- 苹果uc浏览器如何高级设置
- xr如何显示电池百分比
- 生猪肝可以冷冻吗？如何保存好
- 出轨离婚证据如何收集
- 香辣鱿鱼虾怎么做？最正宗的香辣鱿鱼虾做法
- 新鲜猪肝如何保存 制作猪肝的技巧