修法布施得聪明智慧，多分享让生活更美好。上次分享了《Excel怎样把YXZ三列数据表转一列Y多列XZ数据表》，介绍了三列数据表转成多列数据处理方法，下面通过一实例分享快速将纵向数据表根据条件转置成横向处理方法。实例：图1表Sheet1按“户主”分行多列转成另表Sheet2图2。工具/原料moreMicrosoft Office Excel 2007Excel VBA处理方法/步骤1/6分步阅读

首先打开Microsoft Office Excel 2007，上例另存文件名《Excel如何快速将纵向数据表根据条件转置成横向 .xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。

2/6

然后按下快捷键ALT+F11打开VBE（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。

3/6

然后插入了一个模块1，在代码框中复制如下代码：

Sub 转表()

2020-10-30 21:30:30

Dim r As Long, myr As Range, n As Long, mb(), i As Long, k As Long, m As Long

r = Range(E Rows.Count).End(xlUp).Row

n = Application.WorksheetFunction.Max(Range(F2:F r)) - 1

Set myr = Range(B2:E r)

ReDim mb(1 To r, 1 To n + 4)

k = 0

For i = 1 To r - 1

If myr.Cells(i, 4).Value = 户主 Then

k = k + 1

mb(k, 1) = k

mb(k, 2) = myr.Cells(i, 1).Value

mb(k, 3) = myr.Cells(i, 2).Value

mb(k, 4) = myr.Cells(i, 3).Value

m = 4

Else

m = m + 1

mb(k, m) = myr.Cells(i, 2).Value

End If

Next i

Worksheets(Sheet2).UsedRange.ClearContents

Worksheets(Sheet2).Range(A1:D1) = Array(序号, 整户编号, 户主身份证号, 户主)

For i = 5 To n + 4

Worksheets(Sheet2).Cells(1, i).Value = 家庭成员 i - 4 身份证号

Next i

Worksheets(Sheet2).Range(A2).Resize(k, n + 4) = mb

End Sub

4/6

以上操作动态过程如下：

5/6

回到工作表窗口，Sheet1表中，为了显示直观在Sheet2表生成转表数据，新建一个窗口垂直并列两个窗口，然后运行【转表】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名，执行），在Sheet2表生成转表数据，运行过程如下图。

6/6

如果觉得这篇经验帮到了您，请点击下方的 “投票点赞 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！

注意事项

动态图片要双击成单独大图才能播放全过程。

纵向转横向表条件转另表