德山经济开发区建设局网站,怎样做模具钢网站,网站建设公司郑州,企业qq注册申请目标
1 统计一个excel 文件里#xff0c;多个sheet里的内容2 有的统计需求是#xff0c;每个表只单表统计#xff0c;只是进行批量操作3 有的需求是#xff0c;多个表得某些行列累加等造出来得文件 2 实现方法1 #xff08;可能只适合VBAEXCEL#xff0c;不太干净的写法…
目标
1 统计一个excel 文件里多个sheet里的内容2 有的统计需求是每个表只单表统计只是进行批量操作3 有的需求是多个表得某些行列累加等造出来得文件 2 实现方法1 可能只适合VBAEXCEL不太干净的写法
2.1 基本思路
双层循环一层是循环各个sheet表一层是在某个sheet表内取数据从头取到尾需要判断下取第几列取到哪行为止Sub t100()
Dim sh1 As Object
Set sh1 ThisWorkbook.Worksheets(sheet1)
sh1.Columns(6).Clear 重置输出区
sh1.Cells(1, 6) 跨表sumDim j As ObjectFor Each j In ThisWorkbook.Worksheetsi 2j.Cells(2, 4).Clear 重置输出单元格避免污染Do While j.Cells(i, 2) sh1.Cells(i, 6) j.Cells(i, 2) sh1.Cells(i, 6) 跨表对应行累加统计j.Cells(2, 4) j.Cells(i, 2) j.Cells(2, 4) 单表多行累加i i 1LoopNext
End Sub 2.2 用EXCEL表的单元格当变量来存储数据
其实我反思EXCEL只应用来显示可能更好
如果是累加一个sheet的数据存在一个变量/1个单元格就行如果是累加多个sheet的数据需要存在多个excel单元格/ 1行/1列等2.3 重点1
方法1直接把 j当作了worksheets对象Dim j As Object For Each j In ThisWorkbook.Worksheets 2.4 方法1需要重置输出区
为什么呢因为EXCEL不是变量数组是文件是可以保存数据的不像 程序里的变量数组程序开始运行创建--生---------程序运行结束销毁--灭所以有可能上次运行的数据 可以叫脏数据吧还存着会和新运行的结果累积起来所以就需要 先把EXCEL的输出区域重置才行2.5 方法1得历史改进过程没什么用有兴趣得看看
Sub t1()
Dim sh1 As Object
Set sh1 ThisWorkbook.Worksheets(sheet1)
Dim j As ObjectFor Each j In ThisWorkbook.WorksheetsFor i 2 To 99 写死99这种这个很不好需要线判断最大行数sh1.Cells(i, 6) j.Cells(i, 2) sh1.Cells(i, 6)NextNext
End SubSub t11()
Dim sh1 As Object
Set sh1 ThisWorkbook.Worksheets(sheet1)
Dim j As ObjectFor Each j In ThisWorkbook.Worksheetsi 2Do While j.Cells(i, 2) sh1.Cells(i, 6) j.Cells(i, 2) sh1.Cells(i, 6)i i 1LoopNext
End SubSub t12()
Dim j As ObjectFor Each j In ThisWorkbook.Worksheetsi 2Do While j.Cells(i, 2) j.Cells(2, 4) j.Cells(i, 2) j.Cells(2, 4)i i 1LoopNext
End Sub 3 方法2 运算和存储都在程序的变量里进行EXCEL只存储和显示最终结果 3.1 代码写法思路和方法1完全不同
运算和存储都在程序的变量里进行EXCEL只存储和显示最终结果VBA 和像方法1那么干还是因为是内置在EXCEL里的吧一般程序还是都把过程放在程序内解决EXCEL表只是存储最终结果 显示出来Sub t200()核心差异
方法2把j定义为 sheet的序号而b作为worksheets对象Set b Worksheets(j)
对应方法1直接把j当作了worksheets对象方法1需要重置输出区
方法2因为都是用变量中转的单数据存1个变量里多数据存在数组因为变量做了重置所以输出区域就不做重置了Dim i, j, h
Dim b As Object
Dim sh1 As Object
Set sh1 ThisWorkbook.Worksheets(sheet1)
Dim arr1()For j 1 To ThisWorkbook.Worksheets.Counth 0 每个表分表统计i 2 每个表都从第2行开始重置i行数数组不需要重置因为这个数组不需要循环就是要一次性累加每次运行变量和数组都是消灭后重新生产的不会像excel这种外部文件记录了数据 重置变量和数组是为了程序连续运行期间问题就是为了循环下次循环冲头再来Set b Worksheets(j)Do While b.Cells(i, 2) ReDim Preserve arr1(2 To i) 因为i在不同的表无法确认具体数值有数据的行数都不同arr1(i) b.Cells(i, 2) arr1(i) 跨表对应行累加统计,因为是多个数据需要用数组h h b.Cells(i, 2) 单表多行累加i i 1Loopb.Cells(2, 4) h h本身做了重置因此输出单元格Cells(2, 4) 不需要再重置NextFor i LBound(arr1) To UBound(arr1)sh1.Cells(i, 6) arr1(i)NextEnd Sub 3.2 定义sheet 不同 方法2把j定义为 sheet的序号而b作为worksheets对象Set b Worksheets(j)对应方法1直接把j当作了worksheets对象3.3 不需要重置EXCEL的 存储显示区
方法1需要重置输出区因为方法1把那些区域又做显示又做存储就有了需要重置清除的问题方法2因为都是用变量中转的单数据存1个变量里多数据存在数组因为变量做了重置所以输出区域就不做重置了可以看到代码里
EXCEL输出区域只是从 代码里取变量 或数组内容进行显示和EXCEL本身区域的内容没关系输出后会直接覆盖老数据
不过也有可能有问题就是老数据的行数比新的多导致这样还是有脏数据嘿嘿 b.Cells(2, 4) h For i LBound(arr1) To UBound(arr1) sh1.Cells(i, 6) arr1(i) Next 3.4 代码内部的重置 这个主要和循环有关系
数组不需要重置因为这个数组不需要循环就是要一次性累加 每次运行变量和数组都是消灭后重新生产的不会像excel这种外部文件记录了数据 重置变量和数组是为了程序连续运行期间问题就是为了循环下次循环重头再来3.5 方法2的历史代码没啥用 Sub t2()
Dim i, j, h
Dim b As ObjectFor j 1 To ThisWorkbook.Worksheets.Counth 0 每个表分表统计i 2 每个表都从第2行开始重置i行数Set b Worksheets(j)Do While b.Cells(i, 2) h h b.Cells(i, 2)i i 1Loopb.Cells(2, 4) hNextEnd SubSub t21()
Dim i, j
Dim b As Object
Dim sh1 As Object
Set sh1 ThisWorkbook.Worksheets(sheet1)For j 1 To ThisWorkbook.Worksheets.Counti 2 每个表都从第2行开始重置i行数Set b Worksheets(j)Do While b.Cells(i, 2) sh1.Cells(i, 6) b.Cells(i, 2) sh1.Cells(i, 6)i i 1LoopNextEnd Sub
