Question

我正在尝试将数字添加到字符串上。我想循环显示“ a”的1到80和“ s”的1到40，以便将这些数字添加到字符串r（1）和r（2）。

我要获取的结果的格式如下：r（1）=“ PD 1”，依此类推； r（2）=“ QR 1”，依此类推。

Dim a As Integer

Dim s As Integer

Dim r(1 To 2) As String

For a = 1 To 100

    r(1) = ""PD " & "a""

Next a

For s = 1 To 40

    r(2) = "QR " & s

Next s

Answer 1

如果要数组数组，也许：

Dim pd(1 To 100) As String
Dim qr(1 To 40) As String

Dim i As Long
For i = LBound(pd) To UBound(pd)
    pd(i) = "PD " & i
Next

For i = LBound(qr) To UBound(qr)
    qr(i) = "QR " & i
Next

Dim r(1 To 2)
r(1) = pd
r(2) = qr

有没有一种方法可以使用For循环添加到字符串？ VBA

1 个答案: