Saberexcel - o site das macros

Esse exemplo de wkf(WorksheetFunctions) Funções de Planilha, faz parte das  340 - WorksheetFunctions Funções de Planilha VBA (LINK) .
Essa Função do Aplicativo Microsoft Excel VBA(Visual Basic Application) , que são as conhecidas WorksheetFunctions (Funções de Planilha) repet por quantas vezes for necessária um texto.  Espero que o exemplo possa ajudá-los. Fiquem com Deus, E_Marcondes.

Sub wkfuncao_repet_texto()
    Dim vTexto As String, vFuncao_1 As String, vFuncao_2 As String, vFuncao_3 As String
    Dim i As Long, sbx As Long
    vTexto = "Saberexcel- Macros VBA| "
    i = 10
    
    'primeiro exemplo de funcao de planilha repet
    vFuncao_1 = Application.WorksheetFunction.Rept(vTexto, i)
    MsgBox "1º Exemplo de Function Rept: " & "REPT Function " & vbNewLine & vFuncao_1
    [E13].Value = "Função de Planilha REPET " & vbNewLine & vFuncao_1
   
    'segundo exemplo substitui por espaços
    vFuncao_2 = Replace(Space(i), " ", vTexto)
    MsgBox "2º Exemplo Substituindo por espaços " & vbNewLine & vFuncao_2
    [E13].Value = "Função de Planilha REPET " & vbNewLine & vFuncao_2
    
    'terceiro exemplo usando um loop for next...
    For sbx = 1 To i
        vFuncao_3 = vFuncao_3 & vTexto
    Next sbx

    MsgBox "3º Exemplo usando loop  " & vbNewLine & vFuncao_3
     [E13].Value = "Função de Planilha REPET " & vbNewLine & vFuncao_3
    
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA (Visual Basic Application),
sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel



   Baixe o exemplo de planilha contendo a wkfuncao repet
Excel planilha wkf vba repet tres exemplos macros como fazer (25.43 kB)