Чтобы повторить строку 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
объединяет элементы массива в одну строку.