汇总药品名称

prowl

创建一个汇总表，汇总其他表里的数据，要求

只要每个表的表头和A到D列的数据显示到汇总表里
每个表的相关内容，顺次填入。
比如：

ykcbf1100

你合并各分表的前4列，包括也标题也合并进去吗？

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.6.4
   
2.     Application.ScreenUpdating = False
   
3.     Set sh = ThisWorkbook.Sheets("汇总表")
   
4.     sh.UsedRange.Clear
   
5.     For Each sht In Sheets
   
6.         If sht.Name <> sh.Name Then
   
7.             m = m + 1
   
8.             With sht
   
9.                 If m = 1 Then
   
10.                     .Range("A:D").Copy sh.[a1]
    
11.                 Else
    
12.                     r = sh.Cells(Rows.Count, 1).End(3).Offset(1).Row
    
13.                     r1 = .Cells(Rows.Count, 1).End(3).Row
    
14.                     .[a1].Resize(r, 4).Copy sh.Cells(r, 1)
    
15.                 End If
    
16.             End With
    
17.         End If
    
18.     Next
    
19.     sh.[a3].Select
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "OK！"
    
22. End Sub
    

复制代码

prowl

ykcbf1100 发表于 2024-6-4 13:01
附件供参考。。。

太感谢老师了

prowl

ykcbf1100 发表于 2024-6-4 13:01
附件供参考。。。

再麻烦老师，汇总后的文字格式如果就想是普通格式的话（不用像每个工作表里那样的格式，而只是普通格式）代码怎么修改？

ykcbf1100

prowl 发表于 2024-6-4 13:11
再麻烦老师，汇总后的文字格式如果就想是普通格式的话（不用像每个工作表里那样的格式，而只是普通格式） ...

不太明白，你能做个效果图给我看看吗？

prowl

ykcbf1100 发表于 2024-6-4 14:27
不太明白，你能做个效果图给我看看吗？

prowl

prowl 发表于 2024-6-4 20:18

就是这样的形式的，麻烦老师了

ykcbf1100

prowl 发表于 2024-6-4 20:18
就是这样的形式的，麻烦老师了

那就这样吧。