如何使用For Each循环查看一个工作表上的信息并在另一个工作表上生成形状？

Dim wsSource As Worksheet
Dim wsDestination As Worksheet
Dim rngSource As Range
Dim rngCell As Range
Dim shp As Shape
Dim i As Integer

Set wsSource = ThisWorkbook.Worksheets("源工作表") ' 替换为实际的源工作表名称
Set wsDestination = ThisWorkbook.Worksheets("目标工作表") ' 替换为实际的目标工作表名称

Set rngSource = wsSource.Range("A1:A" & wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row) ' 替换为实际的数据范围

i = 1 ' 用于在目标工作表上生成形状的计数器

For Each rngCell In rngSource
    ' 在目标工作表上生成形状
    Set shp = wsDestination.Shapes.AddShape(msoShapeRectangle, 10, i * 20, 100, 20) ' 替换为实际的形状参数
    
    ' 设置形状的文本为源工作表上的数据
    shp.TextFrame.Characters.Text = rngCell.Value
    
    i = i + 1
Next rngCell