在这里，我有一百行代码，请启发我如何将行代码放入循环中，这是我的尝试，但我仍无法解决
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
在这种情况下，我该如何更改它以更正循环，请提出建议
谢谢你
这是制作覆盖字符串变量的循环的一般方法。...说我们想循环遍历Shape（“ Rectangle 1”）.... Shape（“ Rectangle 2”）.... Shape（“ Rectangle 3）...等
Dim str As String, i As Long
For i = 11 To 100
str = "Rectangle " & CStr(i)
Sheets2.Shapes(str)................
Next i
并使用类似的方法制作“ A2” ...“ A3” ......
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句