Excel 范围没有增加

我有一个VBA代码，可以从excel工作表复制单元格数据，并将其粘贴到powerpoint中，但我无法按列增加单元格，如A2、B2、C2、D2到U2，而且我是VBA新手，人们会对该代码进行排序

我想增加单元格数量，但在for循环后范围没有变化，请仔细查看

Dim xlApp As Object
Dim xlWorkBook As Object

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = False
Set xlWorkBook = xlApp.Workbooks.Open("C:\Users\point.xls", True, False)
SheetName = activesheet.Name
Set xlApp = Nothing
Set xlWorkBook = Nothing

Dim abc As String
'Dim SheetName As String
Dim TestRange As Range
Dim TestSheet As Worksheet
Dim PasteRange As Boolean
Dim RangePasteType As String
Dim RangeName As String
Dim AddSlidesToEnd As Boolean
Dim shts As Worksheet
Dim sld As Slide
Dim grpItem As Shape
Dim shp As Shape
Dim i As Long
Dim j As Long
Dim a() As Variant
i = 0
   ReDim a(5)
   a(0) = "VNL"
   a(1) = "ABHI"
   a(2) = "ABI"
   a(2) = "RM"


'cell number used
'PasteRange = True
'RangeName = ("B3:B3")
'RangePasteType = "HTML"
'RangeLink = True

AddSlidesToEnd = True

On Error Resume Next
Set ppApp = GetObject(, "PowerPoint.Application")
On Error GoTo 0


'Set xlApp = CreateObject("Excel.Application")
'Make the instance visible
'ppApp.Visible = True

For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes

For Each c In Range("A2:A2")
    If shp.HasTextFrame Then
        If shp.TextFrame.HasText Then
            abc = c
            For i = 0 To 3
            shp.TextFrame.TextRange.Text = replace(shp.TextFrame.TextRange.Text, a(i), abc)
            Next
    End If

End If
Next c
Next shp
Next
End Sub ```

---

更改<代码>范围（“A2：A2”）<代码> >“代码>范围（“A2:U2”）< /C>更改SIR，但它们只复制一个单元格，并将所有变量从[0 ]到[4 ]粘贴在范围内的每个C（“A2:A2”）中：“您已经在一组PowerPoint语句的中间放置了Excel VBA行。PowerPoint试图解释它，但失败了。我猜“c”应该是一个细胞，但你从来没有这样声明过。如果使用R1C1引用而不是A1引用，则以编程方式指定单元格更容易。