Question

怎么用vb语言统计表格内的数据

sheet2中一行位置不变的动态数据A2:Z2，另外一个统计表sheet1（A列已事先输入编号）
怎么用VB让这行动态的数据一更新就自动保存到统计表指定的行里面 保存的行位置取决于动态数据内的一个编号 而这个编号与统计表的编号一一对应，跪求VB高手解答+VB程序 感激不尽

Answer 1

Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object
Set ex = CreateObject("Excel.Application")

'Set exwbook = ex.Workbooks().Add '新建一个workbook
Set exwbook = ex.Workbooks().Open("c:\abc.xls") '打开一个已存在的workbook
Set exsheet = exwbook.Worksheets("sheet2") '选定sheet2
ex.Range("e1").Value = 22 '给相应单元格赋值
MsgBox ex.Range("e6").Value '获取相应单元格的数值
ex.Range("c4:g7").Value = x '给多个单元格统一赋值
ex.Range("c3").Value = "表 格"
ex.Range("d3").Value = " 春 天 "
ex.Range("e3").Value = " 夏 天 "
ex.Range("f3").Value = " 秋 天 "
ex.Range("g3").Value = " 冬 天 "
exwbook.Save '保存，适用于打开已有的，或以保存的文件
'exwbook.SaveAs "c:\abc.xls" '保存输入到abc.xls（适用于新建或另存为）
ex.Workbooks().Close '关闭workbook
ex.Quit '退出excel
Set exwbook = Nothing
Set exsheet = Nothing
可以不断读取sheet2中A2:Z2的数据，并比较此数据和上次记录的数据是否一致，如果不一致说明数据发生了更新，则把此数据保存在变量中，下次用此数据进行比较，并在sheet1中保存相应的数据
上面是部分代码，没有把你所要的代码写出来，不过上面的代码完全能够实现EXCEL的数据读取与保存，仔细琢磨一下吧

Answer 2

用Vb操作Execl，有专门的语句，要定义专门的Excel对象，还有就是用VB对Excel的打开与保存。
再者可以用VB直接对Excel输入动态公式，
例如：
Cell(1,1)="=sum(B1:C1)"
我没有理解你的意思，可能是我的理解有问题：）
不过能感觉到你的问题应该不会太复杂，我们可以HI联系和交流：）