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

Question

如题所述

Answer 1

如你的数据在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=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 With
End Sub
运行此宏，连边框都给你搞好了。