Boa noite!
tentei do segundo jeito que te indiquei e creio que o resultado foi melhor.
Eu não sei o layout da sua planilha, então fiz do jeito da planilha anexada.
Tive o mesmo problema que você com relação a forma de captura da tabela, mais reduzido, mas tive.
De repente outra pessoa possa ajudar nisso, mas acredito que você poderá fazer algum ajuste depois de baixá-las.
O problema é que ele considera alguns resultados como "data", então acaba distorcendo os valores.
Enfim, veja se estou no caminho certo.
Código: Selecionar todos
Sub capturar_tabela()
Dim contador As Integer
Dim I As Integer
I = 1
Do While Range("B" & I).Value <> ""
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.futbol24.com/teamCompare/Brazil/" & Range("B" & I) & "/vs/Brazil/" & Range("D" & I) _
, Destination:=Range("b" & I + 1))
.Name = "time"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
ActiveCell.Offset(10, 0).Select
End With
I = I + 10
Loop
End Sub
A minha ideia é de você preencher os jogos a cada 10 linhas do anterior.
Você deve ter uma lista das partidas, vc cria uma coluna e distribui 0-10-20-30 etc..
primeiro vamos ver se isso já te ajuda.
Antes
- 1.PNG (6.62 KiB) Exibido 7415 vezes
Depois
- final.PNG (24.11 KiB) Exibido 7415 vezes
Abraço!