Hej hej
Bättre sent än aldrig? Koden nedan förflyttar utskrift en kolumn åt höger varje gång v-odds dyker upp. Den hanterar dock inte i, Vilket innebär att du kommer få en trappa av utskrifter. Vill du hellre ha att i återställs till noll vid varje v-odds så bör du kunna åtgärda även detta innannför din if-sats för v-odds.
For Each HTMLTable In HTMLTables
Dim k as long: K = 0
If HTMLTable.innerText = "V-Odds" Then
K = K+ 1
Cells(i + 1, 1+K).Value = ""
Else
Cells(i + 1, 1+K).Value = HTMLTable.innerText
i = i + 1
End If
Ps. Cells(i + 1, 1+K).Value = "" är en helt onödig rad, den skriver ut tomma mängden, dvs ingenting. DÄrefter skrivs tomma mängden över i else satsen med htmltable.innertext