用VBA如何实现:写公式:取A列的内容91开始至后面9码的内容话对应A列单元格

在VBA中，你可以使用循环结构和数组操作来实现这个需求。假设你的数据从A1开始，你想获取A列从A9到A17的内容（总共9个连续的单元格），可以编写如下的VBA宏：

Sub GetContent()
    Dim startRow As Long, endRow As Long
    Dim contentArray() As String
    Dim i As Long
    
    ' 设置起始行和结束行
    startRow = 9 ' A9位置
    endRow = startRow + 8 ' A17位置，注意减一因为数组索引是从0开始的
    
    ' 初始化数组长度等于需要获取的单元格数
    ReDim contentArray(1 To endRow - startRow)
    
    ' 循环读取并存储内容
    For i = startRow To endRow
        contentArray(i - startRow) = Range("A" & i).Value ' 获取A列对应的单元格值
    Next i
    
    ' 现在contentArray包含了你需要的数据
    ' 可以在这里做进一步的操作，比如打印数组内容或者将其保存到其他地方
    
End Sub

运行此宏后，`contentArray`数组将包含A9到A17的内容。如果你想要打印这些内容，可以在For循环后添加一行 `Debug.Print contentArray(i)` 或者将它们写入一个新的范围。