excel表格N行内容，每8行转换为8列，请高手帮忙！！！

Question

黄色区域就是想达到的效果
在线等，实在着急，求各位大侠帮忙~~~

Answer 1

用VBA，步骤如下：

ALT+F11，输入如下代码：

Sub x()
    Dim ans As Long
    Dim i As Integer, j As Long
    ans = Val(InputBox("A列有多少行数据？"))
    For j = 1 To ans / 8
        For i = 2 To 9
            Cells(j, i) = Cells(8 * j + i - 9, 1)
        Next i
    Next j
End Sub

然后点击下图中红圈处按钮运行，运行后首先会要求你输入数据的行数，比如8、16、24、32等，点击确定就会出结果了。对于你的问题，行数肯定是8的倍数。

Answer 2

B1=INDEX($A:$A,(ROW()-1)*8+COLUMN()-1)
右拉 下拉本回答被提问者采纳

Answer 3

你把表格发送到我的邮箱，[email protected]，我看看能不能帮你做下。追问

发过去了，麻烦高手了

追答

已经做好发给你了，你看看吧。在你的邮箱里。