用excel的VBA写获取一个表格内的值

可以使用以下代码获取 Excel 表格内的值：

Sub GetValueFromTable()
    ' 定义变量
    Dim tbl As ListObject
    Dim rng As Range
    Dim rowNum As Long
    Dim colNum As Long
    Dim value As Variant
    
    ' 设置表格对象
    Set tbl = ActiveSheet.ListObjects("Table1")
    
    ' 获取行号和列号
    rowNum = 2 ' 第二行
    colNum = 3 ' 第三列
    
    ' 获取单元格范围
    Set rng = tbl.DataBodyRange.Cells(rowNum, colNum)
    
    ' 获取单元格的值
    value = rng.Value
    
    ' 输出结果
    MsgBox "单元格值为：" & value
End Sub

其中，"Table1" 是表格的名称，可以根据实际情况修改。rowNum 和 colNum 分别表示要获取的行号和列号，可以根据实际情况修改。最后，使用 MsgBox 输出获取到的单元格的值。