excel - Excel - リストを分割する

Question

約 300 項目のリストがあり、1 つずつではなく、8 セルごとに配置する必要があります。これを行う簡単な方法があると確信していますが、私の脳は失敗しています。私の専門用語が痛いと感じているので、なぜ答えが見つからないのですか。

Answer 1

以下のコードを試してください

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 2

スクリーンショットを投稿するか、詳細を追加していただけますか?

考えられる解決策として、次の 2 つのことが頭に浮かびます。

1）テキストを列に使用する（これを使用する場合）または

2) 8 列目に =LEFT(A1, 10) のような式を使用して、下に記入します (10 は、分離する必要がある文字列の最初の部分に変更できます)。

いくつかの追加情報を提供してください。もう一度見てみます。