Чтобы повторить строку nраз в Excel VBA, вы можете использовать разные методы. Вот несколько примеров:
-
Использование цикла 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”. -
Использование функции String:
Function RepeatString(str As String, n As Integer) As String RepeatString = String(n, str) End FunctionФункция
Stringсоздает строку, состоящую из указанного символа, повторяющегося определенное количество раз. Например,RepeatString("World", 2)вернет “WorldWorld”. -
Использование функции 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объединяет элементы массива в одну строку.