Saberexcel - o site das macros

Esse exemplo de wkf(WorksheetFunctions) Funções de Planilha, faz parte das 340 - WorksheetFunctions Funções de Planilha VBA .
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.

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