Feb 14 2022 06:35 PM
Feb 14 2022 07:39 PM
One way you could link those cells - enter B2 in G4, B3 in G5, select G4 and G5 and drag down as far as needed (should have a series, B2, B3, B4, etc.). In column H, enter 1 and 3, and drag down (series - so you should have 1,3,5,7,9, etc). Then, do the same thing for column D, but enter 2,4 in column H (so you have a series of even numbers).
Then, sort columns G and H using column H:
Then, do a find/replace on column G, find B and replace with =B, find D and replace with =D.
Feb 19 2022 09:27 AM
Sub ExpandFormula()
Dim i As Integer
Dim j As Integer
j = 2
For i = 4 To 4000 Step 2
Cells(i, 7).Value = Cells(j, 2).Value
Cells(i + 1, 7).Value = Cells(j, 4).Value
j = j + 1
Next i
End Sub
Maybe with these lines of code. Click the button in cell I2 to start the macro.