vb数据写入excel，请问如何用vb提取excel表格中的数据有一ex

如题所述

sub main()

if cells(1,"A").value="中国" then cells(1,"B")="111"

if cells(1,"A").value="美国" then cells(1,"B")="1123"

end sub

以此为例，在Excel中读取VBA程序的操作步骤如下（Excel2007为例）：

1.选择”开发工具“选项卡，点击”Visual Basic“（或者用快捷键Alt+F11）

2.出现VBA编辑界面，注意看左侧，选择需要运行代码的工作表，此例为Sheet1；双击进入Sheet1相关程序编辑界面

3.在程序编辑区域，复制上上述代码

4.点击上面的三角号，运行程序

5.关闭VBA界面，返回工作表，就可以看到程序运行结果，如下图：

6.如果再次运行程序，可以用快捷键Alt+F8（或者步骤1中的”宏“），出现如下图界面，选择要运行的宏，点击执行即可。