Boa tarde. Estou com um problema um tanto tolo, mas que não consigo sair. Gerei o código abaixo para que o VBA analise todas as células de um determinado intervalo e, toda vez que ele encontrar uma célula vazia ou com um traço (-), então vai substituir pelo valor zero. Nas linhas o código percorre bem, porém, ele fica preso na primeira coluna (não executa a varredura nas colunas seguintes).
Sub alterar()
Dim linha As Integer
Dim col As Integer
Sheets("Tabela").Activate
Range(Cells(1, 1), Cells(100, 100)).UnMerge
linha = 1
col = 1
Do Until Cells(1, col) <= 5
Do Until linha = 40
Cells(linha, col).Select
If Cells(linha, col).Value = "-" Then
Cells(linha, col).Value = 0
End If
linha = linha + 1
Loop
col = col + 1
Loop
End Sub
Do Until Cells(1, col) <= 5
? Você quer que o Excel pare de iterar quando encontrar uma coluna cuja primeira célula tenha um valor menor ou igual a 5?Do While col <= 5
.