这明显是VBA语法错误啊
i = n = 2
VBA没有这种C语言的赋值方式/
要改成:
i=2
n=2
否则i的值为false,
If Worksheets("5号站")Cells(i, 2)Value = Worksheets("5号站")Cells(i + 1, 2)Value Then这句话自然就有错了
这根本就不用VBA:
给你一个办法:
在你的sheet2表中点“插入”,名称,定义,
d出的窗口中,第一行是名称名,随便你输入,如,AA
最下边一行引用位置输入=evaluate(VLOOKUP(A2,Sheet1!A:B,2,0))
确定。
你在你要放置公式结果的位置如B2单元格内直接输入:=AA并向下拖动填充。
这样sheet2中的B列就会根据A列中的学号到sheet1中去选择合适的成绩计算公式,然后再根据公式在当前的sheet2表中去找到成绩的计算单元格,算出总成绩。
如,你的学号是3,则成绩的计算公式是E2+F2+S2 则这个单元格内显示的是sheet2表中E2+F2+S2 这三个单元格内数据的和。
以上就是关于Excel中用VBA编的一段小程序:目的是想将时间(B这个column)重复的数据记录求平均,并放入新的工作表中全部的内容,包括:Excel中用VBA编的一段小程序:目的是想将时间(B这个column)重复的数据记录求平均,并放入新的工作表中、这个excel vba 小程序怎么写,在线等!!、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)