1、首先，我要知道商品的单价是12.5，在D1单元格输入【商品单价】，在D2单元格输入12.5
2、接着我们打开vb界面，在常用工具栏上执行：开发工具--visual basic。
3、打开vb以后，我们要先建立一个模块，如图所示，在菜单栏上执行：插入--模块，这样就直接插入并打开了一个模块。
4、在打开的模块中，我们输入如下的代码：Const Price As Single = 12.5Sub 计算销售额()Dim sh As WorksheetSet s茑霁酌绡h = Worksheets("sheet1")Dim n As Integern = 2Dosh.Cells(n, 3) = sh.Cells(n, 2) * Pricen = n + 1Loop Until sh.Cells(n, 2) = ""End Sub
5、保存模块：在菜单栏上执行文件--保存，或者按下快捷键ctrl+s
6、接着按下F5，快速执行宏，在打开的宏对话框中，找到我们编辑的这个宏，【计算销售额】，然后点击【运行】这就是经过计算得到的销售额了：
