如何在excel中提取指定行来自的数据到指定列中

如何在excel中提取指定行来自的数据到指定列中

问题补充说明：我有个excel表，有数百行，表上只有一列，如下所示:1(行):姓名2行:王某某3行:年龄4行:345行:未发放6行:姓名7行:张三张8行:年龄9行:8710行:已发放......我想把这个表整理成常见的格式，也就是 ，让他变成如下格式姓名 年龄 备注王某某 34 未发放张三 87 已发放。。。。。。请高手指点!不胜感谢!!!!

如你的数据在A列，那么在B1输入“姓名”，C1输入“年龄”，D列输入“备注"

B2输入公式

=INDIRECT("A"&ROW(A1)*5-4+COLUMN(A1)*2-1)

右拉到C2

选择B2：C2公式下拉完成姓名和年龄的提取

这两项也可分开提取

B2=INDIRECT("A"&ROW(A1)*5-3)

C2=I360问答NDIRECT("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)="备注"

Range("B:D").Cle斗间arContents

Ran轴细远试ge("B:D").***.加渐探队福己linestyle=任0

WithRange("B1").Resi担通然放白号清与宜策心ze(UBound(brr,2)+1,3)

.Value=***.transpose(brr)

.*振假频接存却进征场谁**.linestyle=1

EndWith

EndSub

运行此宏，连边框都给你搞好了。