JSON to CSV - Repeat all row items

[Seba Robles]

Hello,

I have a JSON file that I converted to CSV using an online converter. When I open the CSV file, I have all the data but some rows have blank cells that I want filled. (See image below)

Notice how rows 2 through 8, and row 14 are single row items. However, rows 9 through 10 and the rest highlighted in yellow have blank cells.

Take row 9 for example, column B (name) would be the parent - column H (card sets set cod) would be the child). Rows 10 and 11 belong to the parent on row 9, so I want those filled too with the information. Like, repeat the parent information for the cases that apply. (see image below for desired output)

Now, I've never worked with JSON before so I'm not sure if what needs to be corrected is in the JSON code, but this is a snippet of how the JSON code is written;

Any help or pointers will be greatly appreciated!!!

 

[jsb1921]

sub s_data_fix()
Dim lastrow1 As Integer
lastrow1 = Cells(Rows.Count, "H").End(xlUp).Row
Dim int1 As Integer
for int1= 2 to lastrow1
if len(trim(ltrim(cells(int1,"A").value))) < 1 then
   cells(int1,"A").value = cells(int1-1,"A").value
   cells(int1,"B").value = cells(int1-1,"B").value
   cells(int1,"C").value = cells(int1-1,"C").value
   cells(int1,"D").value = cells(int1-1,"D").value
   cells(int1,"E").value = cells(int1-1,"E").value
   cells(int1,"F").value = cells(int1-1,"F").value
   cells(int1,"A").value = cells(int1-1,"A").value
end if
next int1
End sub

if this helps you, pl mark this as solution for the future readers of this thread.

 

[Fluff]

Another option

Sub SebaRobles()
   Dim Rng As Range
   
   For Each Rng In Range("A:A").SpecialCells(xlBlanks).Areas
      Rng.Offset(-1).Resize(Rng.Count + 1, 6).FillDown
   Next Rng
End Sub

 

[Seba Robles]

I tried both approaches and they worked. However, there are cells that need to be filled down from columns L through AI as well so Fluff's approach would be easier to code.

I modified the code so that it also fills down the remaining columns

Sub FillDown_BlankRows()
   Dim Rng As Range
     
   For Each Rng In Range("A:A").SpecialCells(xlBlanks).Areas
      Rng.Offset(-1).Resize(Rng.Count + 1, 6).FillDown
      Rng.Offset(-1, 11).Resize(Rng.Count + 1, 23).FillDown
   Next Rng
   
End Sub

Thank you both!!

 

[Fluff]

Glad we could help & thanks for the feedback.