子测试()
将ws标注为工作表,将v标注为双精度
v0
对于中的每个ws
如果
汇总表然后vvws。单元格(,)
下一个ws
v
末端接头
idea:使用foreach遍历本工作簿中的所有工作表,并添加与本工作簿中所有工作表中当前所选单元格具有相同行号和列号的单元格的变量汇总表和并将它们返回到当前选定的单元格。
a1-a10使用从1到10的变量x。我建议用cells(x,y),这样其实更快,比如:s0fori1到sc
子测试()
dimi,j作为变量
输入框(请输入需要填写的内容)
设置j张纸。范围(b:b
在模块中定义了两个全局变量irow,然后icol获取工作簿开头的初始单元格行号和列号,作为此工作簿中workbook_open()事件的初始行号和列号:
然后在sheet1的worksheet_selectionchange(byvaltargetasrange)事件中,添加以下代码:
privatesubworksheet_selectionchange(byvaltargetasrange)dimrerowasinteger,recolasintegerrerowrecol移动前,单元格行号为:irowvbcrlf移动前,单元格列号为:icolcells(irow,icol)irowrerowicolrecolensub。