用vba读取表格单元格

要使用VBA读取表格单元格，可以使用以下代码：

Sub ReadCell()

Dim ws As Worksheet
Set ws = Worksheets("Sheet1") '替换为你的工作表名

Dim cellValue As Variant
cellValue = ws.Range("A1").Value '替换为你要读取的单元格地址

MsgBox "单元格的值是：" & cellValue

End Sub

在这个例子中，我们首先将工作表存储在一个变量中，然后使用Range方法读取单元格的值，并将其存储在一个变量中。最后，我们使用MsgBox函数显示单元格的值。您可以根据需要更改单元格地址和工作表名称。