VBA Excel到循环的转换

这里有我的100行代码，请告诉我如何将行代码放入循环中 这是我的尝试，但我不会继续努力

 If sp.Name Like "Rounded Rectangle*" Or sp.Name Like "Oval*" Then


        For i = 11 To 100

        x = i - 9

        Sheet2.Shapes.Range(Array("Rounded Rectangle " + i)).TextFrame.Characters.Text = Sheet1.Range("A" + x)

        Next i


    End If

然后重复，直到X=110

在这种情况下，我如何将其更改为正确的循环，请提供建议

---

谢谢

这是一种制作循环以覆盖字符串变量的通用方法……假设我们想要循环形状（“矩形1”）……形状（“矩形2”）……形状（“矩形3”）…，等等

Dim str As String, i As Long
For i = 11 To 100
    str = "Rectangle " & CStr(i)
    Sheets2.Shapes(str)................
Next i

并使用类似的方法制作“A2”…“A3”…

简单数学：

For i = 11 To 100

改为

For i = 11 To 119

Sub Adjust（）将ws作为工作表将sp作为形状集将sp作为形状集将ws=Sheet2用于ws.Shapes中的每个sp如果sp名称像“圆角矩形*”或sp名称像“椭圆形*”则将str作为字符串将str作为字符串进行调整，只要i=11到100 str=“矩形”&CStr（i）strs=CStr（i-9）Sheet2.Shapes.Range（str）.TextFrame.Characters.Text=Sheet1.Range（“A”&strs）下一个i结束，如果下一个结束子