1、首先打开上例文件，如下图。
2、然后按下快捷键ALT+F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。
3、然后插入了一个模块1，在代码框中复制如下代码：Option Base 1Sub 表转换()'2019-11-30 20:11:38Dim r As Lon爿讥旌护g, m1, m2(), i As Long, j As Long, k As Longr = Range("a65536").End(xlUp).Row 'excel2003行65536 excel2007行1048576m1 = Range("a1:i" & r)ReDim m2((r - 1) * 8, 3)k = 0For i = 2 To r For j = 2 To 9 If m1(i, j) <> "" Then k = k + 1 m2(k, 1) = m1(i, 1) m2(k, 2) = m1(1, j) m2(k, 3) = m1(i, j) End If Next jNext iSheets("Sheet2").Range("a2:c" & k + 1) = m2End Sub
4、回到工作表窗口，然后菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选宏名“表转换 ”点【执行】，在Sheet2表生成结果。
5、操作过程和运行结果动态操作如下图：
