excel - n個の行でセルの複数のコピーを取得するにはどうすればよいですか？

Question

この問題を解決できるvbaコードを使用したいと思います。

行があり、同じ行に各セルの複数のコピーが必要です。セルをn個ずつコピーする必要があります。行1には、コピーされる情報が表示されます。2行目はn番号です。

したがって、例：

入力:(たとえば、n-number = 3）

• ジョン
• ヘンドリック
• サラ

出力：

• ジョン
• ジョン
• ジョン
• ヘンドリック
• ヘンドリック
• ヘンドリック
• ヘンドリック
• サラ
• サラ
• サラ ....

誰かが私を助けてくれることを願っています！

Answer 1

から：

に：

このコードを使用します：

Option Explicit

Sub CopyInAWeirdWay()
    Dim sh As Excel.Worksheet
    Dim LastRow As Long
    Dim currentCopyRow As Long
    Dim i As Long
    Dim k As Long

    Set sh = ActiveSheet
    LastRow = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row
    currentCopyRow = 1

    For i = 1 To LastRow
        For k = 1 To sh.Cells(i, 2)
            sh.Cells(currentCopyRow, 3).Value = sh.Cells(i, 1).Value
            currentCopyRow = currentCopyRow + 1
        Next k
    Next i
End Sub