Excel数据批量转置（多列转三列）
1、"Sheet1"表是衣服代号尺码对应数量共9例数据表，其中第一列“衣服代号”，其他列都是不同“尺码”列。把"Sheet1"表数据转成3列（“STYLE NO.、SIZE 、QTY”）数据"Sheet2"表。
1、首先打开上例文件，如下图。
2、然后按下快捷键ALT+F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。
3、然后插入了一个模块1，在代码框中复制如下代码：
Option Base 1
Sub 表转换()
'2019-11-30 20:11:38
Dim r As Long, m1, m2(), i As Long, j As Long, k As Long
r = Range("a65536").End(xlUp).Row 'excel2003行65536 excel2007行1048576
m1 = Range("a1:i" & r)
ReDim m2((r - 1) * 8, 3)
k = 0
For 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 j
Next i
Sheets("Sheet2").Range("a2:c" & k + 1) = m2
End Sub
4、回到工作表窗口，然后菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选宏名“表转换 ”点【执行】，在Sheet2表生成结果。
5、操作过程和运行结果动态操作如下图：
1、下面修改下代码，做成万能式转换数据，选原数据，然后运行宏，提示选第一个单元格数据输出，然后在该单元格输出三列数据，代码如下：
Option Base 1
Sub 多列转三列()
'2019-11-30 20:11:38
Dim r As Long, c As Long, m1, m2(), i As Long, j As Long, k As Long, myr As Range
m1 = Selection
r = UBound(m1, 1)
c = UBound(m1, 2)
ReDim m2((r - 1) * c, 3)
k = 0
For i = 2 To r
For j = 2 To c
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 j
Next i
Set myr = Application.InputBox(Prompt:="使用鼠标选择输出转换数据的一个单元格", Type:=8)
Range(myr, myr.Offset(k - 1, 2)) = m2
End Sub
2、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！