vba - 行にクローンを転置し、セルの内容を行に分割する特定の範囲でマクロをループしますか?

Question

列の値を行に転置し、セルの 1 つの値を行として分割しようとしています。これが私がやろうとしていることです:

入力データ:

09/20/2013
$240
Item1, Item2, Item3

出力データ:

09/20/2013 $80 Item1
09/20/2013 $80 Item2
09/20/2013 $80 Item3

値はアイテムの数によって異なります。$80 * アイテム数です。アイテムのセルを分割し、それらを行に転置する必要があります。マクロを使用してこれを行うことはできません。

Answer 1

少しやり過ぎかもしれませんが、これを試してください：

Sub SplitUp()
  Dim rng As Range
  Set rng = [A1:A3]

  Dim sx() As String
  sx = Split(rng(3, 1).Value, ",")

  Dim cntr As Integer
  cntr = 1

  Dim money As Long
  money = rng(2, 1).Value / (UBound(sx) + 1)

  For i = LBound(sx) To UBound(sx)
    Range("C" & cntr).Value = rng(1, 1) & " $" & money & " " & sx(i)
    cntr = cntr + 1
  Next
End Sub

結果は次のようになります。