-
ループを使用する方法:
Sub RepeatString() Dim inputString As String Dim n As Integer Dim repeatedString As String Dim i As Integer ' 入力文字列と繰り返し回数を指定 inputString = "Hello" n = 3 ' 文字列を繰り返す For i = 1 To n repeatedString = repeatedString & inputString Next i ' 結果を表示 MsgBox repeatedString End Sub
-
String関数を使用する方法:
Sub RepeatString() Dim inputString As String Dim n As Integer Dim repeatedString As String ' 入力文字列と繰り返し回数を指定 inputString = "Hello" n = 3 ' 文字列を繰り返す repeatedString = String(n, inputString) ' 結果を表示 MsgBox repeatedString End Sub
これらのコード例では、"Hello"という文字列を3回繰り返しています。入力文字列や繰り返し回数は、自分の要件に合わせて適宜変更してください。
この方法を使用することで、Excel VBAで指定した文字列を任意の回数繰り返すことができます。