Excel - 拆分列表

Question

我有一個大約300個項目的列表，我需要每8個單元格間隔，而不是一個接一個。 我確信有一種簡單的方法可以做到這一點，但是我的大腦讓我失望了。 我有一種感覺我的術語受到傷害，因此我找不到答案。

Answer 1

=IF(MOD(ROW()+7;8)=0;INDEX(A:A;INT(ROW()/8)+1);"")

假設數據從A1開始，並且從第1行使用公式（coulmn並不重要）。

Answer 2

試試下面的代碼

Sub Main()


    Dim lastRow As Long
    lastRow = Range("A" & Rows.Count).End(xlUp).Row

    For i = 1 To lastRow
        If i = 1 Then
            Cells(i, 5).Value = Cells(i, 1)
        Else
            Cells((i - 1) * 9, 5).Value = Cells(i, 1)
        End If
    Next

End Sub

產量

Answer 3

你能發布一個截圖或添加一些額外的細節嗎？

我想到了兩個可能的解決方案：

1）使用文本到列（如果這是你要去的地方）或

2）在第8列中使用類似= LEFT（A1,10）的公式並填充（10可以更改為需要分離的字符串的第一部分）。

提供一些額外的信息，我會再看看！