在 Range 变量中连接 For 循环计数器

Question

我需要帮助将 myV1 = p1.Value 与来自 for 循环的变量 'j' 连接起来，例如 myV1 = "p" & j & ".value"。

它给出类型不匹配错误

请帮忙

Sub MyPrg()

Dim myVol As Range
Dim p1 As Range
Dim p2 As Range
Dim p3 As Range
Dim myV1 As Long
Dim i, j As Integer

Set myVol = Range("G3")
    
Set p1 = myVol.Offset(1, -1)
Set p2 = myVol.Offset(1, 0)
Set p3 = myVol.Offset(1, 1)

If myVol = 1000000 Then
  
p1.Value = myVol.Value * 40 / 100
p2.Value = myVol.Value * 40 / 100
p3.Value = myVol.Value * 20 / 100

For j = 1 To 3

myV1 = p1.Value

Answer 1

使用数组：

Sub MyPrg()

Dim myVol As Range
Dim p(1 to 3) As Range
Dim myV1 As Long
Dim I As Integer, j As Integer

Set myVol = Range("G3")
    
Set p(1) = myVol.Offset(1, -1)
Set p(2) = myVol.Offset(1, 0)
Set p(3) = myVol.Offset(1, 1)

If myVol = 1000000 Then
  
p(1).Value = myVol.Value * 40 / 100
p(2).Value = myVol.Value * 40 / 100
p(3).Value = myVol.Value * 20 / 100

For j = 1 To 3

myV1 = p(j).Value