Excel：多种方法实现1列转多列表格(含vba实现)

要求：将A列中的名字放到右边的表格里面

---

一、当数据较少的时候手动实现更快

实现的步骤：
1.先按照下面的方式填充右边的表格


2.填充完毕表格的样子

3.选中该表格所在的区域 → 点击菜单栏“开始” → 查找 → 替换

4.将表格中的a全部替换成=a，点击“全部替换”

5.替换后的效果

二、当有大量的数据时，手动下拉填充很麻烦，vba代码实现更快

点击“查看代码”，进入编写代码页面，将下列代码填入(可根据实际情况改动：)

Sub test()
Dim colindex As Integer
Dim rowindex As Integer
Dim i%
Dim name As String

'获取最后一行
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

'我这里表格的第一个单元格所在的行，根据自己需要改变数字
rowindex = 3
'我这里表格的第一个单元格所在的列，根据自己需要改变数字
colindex = 3

'从第一行到数据所在的最后一行
For i = 2 To lastrow
    '获取每一个单元格的名字
    name = Cells(i, 1).Value
    '将获取的名字放入右边的表中
    Cells(rowindex, colindex).Value = name
    
    '填入表中的时候行不变，名字按列放入
    colindex = colindex + 1
    '当列超过G列的时候换下一行，即行数加1，列数回到表格最左边一列
    If colindex > 7 Then
        rowindex = rowindex + 1
        colindex = 3
    End If
Next i
End Sub