Excel VBA: как повторить строку n раз

Чтобы повторить строку nраз в Excel VBA, вы можете использовать разные методы. Вот несколько примеров:

  1. Использование цикла For:

    Function RepeatString(str As String, n As Integer) As String
    Dim result As String
    Dim i As Integer
    For i = 1 To n
        result = result & str
    Next i
    RepeatString = result
    End Function

    Вы можете вызвать эту функцию, передав строку, которую хотите повторить, и количество раз, которое вы хотите повторить. Например, RepeatString("Hello", 3)вернет “HelloHelloHello”.

  2. Использование функции String:

    Function RepeatString(str As String, n As Integer) As String
    RepeatString = String(n, str)
    End Function

    Функция Stringсоздает строку, состоящую из указанного символа, повторяющегося определенное количество раз. Например, RepeatString("World", 2)вернет “WorldWorld”.

  3. Использование функции Join с массивом:

    Function RepeatString(str As String, n As Integer) As String
    RepeatString = Join(Application.Transpose(WorksheetFunction.Rept(str, n)), "")
    End Function

    Функция Reptповторяет строку указанное количество раз, а Application.Transposeпреобразует полученный массив в одну строку. Функция Joinобъединяет элементы массива в одну строку.