Loop com Espaço

Exercício Básico

Enunciado

Crie um loop da célula A2 até A30 que preencha as células com "SuperVBA". Além disso, faça que cada iteração (repetição) aumente em um o número de espaços entre "Super" e "VBA".

Conceitos Sugeridos:

Dim - Declare uma variável para o contador e outra para acumular os espaços.
For Next - Repete um grupo de instruções um determinado número de vezes.
Cells - Permite a interação do VBA com células da planilha.

Lembre-se que na maioria dos casos há mais de uma forma de resolver o problema.

Dica: Lembre-se se que & é o operador de concatenação de Strings.

Exercício Resolvido

Resolvendo o Problema

Declare uma variável para o contador do loop e uma para armazenar os espaços que serão acumulados por iteração
```
Dim i As Integer
Dim espaco As String

espaco = ""
```
Crie o loop com For Next atribuindo a cada iteração o texto a célula e um espaço a variável que acumula espaços
```
 For i = 2 To 30
    Cells(i, 1).Value = "Super" & espaco & "VBA"
    espaco = espaco & " "
 Next i
```

Código Consolidado

    Sub Resolucao()

    Dim i As Integer
    Dim espaco As String

    espaco = ""

    For i = 2 To 30
       Cells(i, 1).Value = "Super" & espaco & "VBA"
       espaco = espaco & " "
    Next i

    End Sub

Exibir Resposta

Download do exercício Download da resposta

SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

INTRODUÇÃO

BÁSICO

INTERMEDIÁRIO

AVANÇADO