帮忙修改一下总表的代码，谢谢~

ruhong18

帮忙修改一下总表的代码，一键合并各个表格中的数据，第一、第二行保留标题，A列保留分表的名称，汇总表尾行可以合计数据，且可以通过筛选标题进行合计数据~

rardge2015

见附件。

ruhong18

rardge2015 发表于 2019-10-7 00:42
见附件。

你好，要增加到P列的最总~

ruhong18

rardge2015 发表于 2019-10-7 00:42
见附件。

你好，谢谢你，但是还差一点，麻烦帮忙改一下，从E到Q列的汇总表显示不出结果，还有统计数量

rardge2015

无非就是单元格范围的大小而已，你可以尝试自己修改呀。

ruhong18

rardge2015 发表于 2019-10-7 11:34
无非就是单元格范围的大小而已，你可以尝试自己修改呀。

谢谢，可以了，多谢相助！

ruhong18

rardge2015 发表于 2019-10-7 11:34
无非就是单元格范围的大小而已，你可以尝试自己修改呀。

你好，老师，我想增加一个sheet页，这个sheet页可以命个名称为“统计”，并不对它进行合并，该怎么修改代码呢？

rardge2015

1. If SHT.Name <> strTarget And SHT.Name <> "统计" Then

复制代码

rardge2015

改用 Select Case 吧，用以下代码替换：

1.     For Each SHT In Worksheets
   
2.         Select Case SHT.Name
   
3.             Case strTarget, "统计"  '' 把不需要统计的 Sheet 名称都放这里
   
4.             Case Else
   
5.                 iRow = SHT.Range("A" & iRowHeader).End(xlDown).Row
   
6.                 strValue = SHT.Range("A" & iRow).Value
   
7.                 If iRow > iRowHeader And strValue <> "" And InStr(strValue, "合计") = 0 Then
   
8.                     ' 若数据表内有数据才处理
   
9.                     arrRows = iRow - iRowHeader
   
10.                     ReDim arrSrc(1 To arrRows, 1 To arrCols)
    
11.                     arrSrc = SHT.Range("A" & iRowHeader + 1).Resize(arrRows, arrCols).Value
    
12.                     
    
13.                     ' 写入汇总表
    
14.                     Rng.Resize(arrRows).Value = SHT.Name
    
15.                     Rng.Offset(, 1).Resize(arrRows, arrCols).Value = arrSrc
    
16.                     Set Rng = Rng.Offset(arrRows)
    
17.                 End If
    
18.         End Select
    
19.     Next

复制代码

ruhong18

rardge2015 发表于 2019-10-17 09:36
改用 Select Case 吧，用以下代码替换：

漂亮！非常感谢！