vba - 使用 VBA 在工作表中循环圆形单元格以向每个单元格添加形状

Question

我对 VBA 相当陌生，并且正在尝试向表中的每一列添加一个箭头。我收到错误:method 'range' of object '_global' failed .

我该怎么做才能修复它。

Sub loop1()
    'Loop round range P6:AA10
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer


    For i = 9 To 14
        For j = 6 To 10
            k = (i * 2) - 1
            ActiveSheet.Shapes.AddShape(msoShapeRightArrow, Range(Cells(j, k)).Left + 2, _
                Range(Cells(j, k)).Top + 3, 15, 10).Select
        Next j
    Next i
End Sub

Answer 1

删除 Range()，看起来 .Left 和 .Top 是 Cells 的属性而不是 Range 对象。此代码在 Excel 2010 上为我运行:

Sub loop1()
    'Loop round range P6:AA10
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer


    For i = 9 To 14
        For j = 6 To 10
            k = (i * 2) - 1
            ActiveSheet.Shapes.AddShape(msoShapeRightArrow, Cells(j, k).Left + 2, _
                Cells(j, k).Top + 3, 15, 10).Select
        Next j
    Next i
End Sub