(资料图片)

1、如你的数据在A列，那么在B1输入“姓名”，C1输入“年龄”。

2、D列输入“备注"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就更方便了代码如下Sub test() Dim arr, brr(), x&, i& arr = Range("A1:A" & Range("A65536").End(xlUp).Row) For x = 1 To UBound(arr) Step 5 i = i + 1 ReDim Preserve brr(1 To 3, 0 To i) brr(1, i) = arr(x + 1, 1) brr(2, i) = arr(x + 3, 1) brr(3, i) = arr(x + 4, 1) Next x brr(1, 0) = "姓名" brr(2, 0) = "年龄" brr(3, 0) = "备注" Range("B:D").ClearContents Range("B:D").Borders.LineStyle = 0 With Range("B1").Resize(UBound(brr, 2) + 1, 3) .Value = Application.Transpose(brr) .Borders.LineStyle = 1 End WithEnd Sub运行此宏，连边框都给你搞好了。

本文到此分享完毕，希望对大家有所帮助。