1、首先打开Microsoft Office Excel 2007，上例另存文件名《Excel如何快速将纵向数据表根据条件转置成横向 .xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。
2、然后按下快捷键ALT+F11打开VBE（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。
3、然后插入了一个模块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) = mbEnd Sub
4、以上操作动态过程如下：
5、回到工作表窗口，Sheet1表中，为了显示直观在Sheet2表生成转表数据，新建一个窗口垂直并列两个窗口，然后运行【转表】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名，执行），在Sheet2表生成转表数据，运行过程如下图。
6、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！