Complete rows based on cell value.

[dafly]

I’d like to create rows of data based on the data in some other rows. Here is an esample of what I am trying to do.

Comma delimitation

Buffalo, 3
Chicago,2
Atlanta, 2

From those three rows, i’d Like to have the following filled out on the same sheet starting at say row 100:

Buffalo
Buffalo
Buffalo
Chicago
Chicago
Atlanta
Atlanta

It’s kinda like a reverse countif
Any help would be great.

Thanks in advance.

 

[Fluff]

How about

Sub dafly()
   Dim cl As Range
   Dim Splt As Variant
   Dim NxtRw As Long
   
   NxtRw = 100
   For Each cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
      Splt = Split(cl.Value, ",")
      Range("A" & NxtRw).Resize(Splt(1)).Value = Splt(0)
      NxtRw = NxtRw + Splt(1)
   Next cl
End Sub