[求助]如何将28个分店的考勤汇总在一个工作表中

lynda12

<p>我只作了几个分店的考勤,实际中有28个分店的考勤,请教各位老师,有没有什么公式可以做到?</p><p>我之前都是复制--粘贴,效率太低了,特做了一个模板,传上来向专家请教,最终的效果为"总表"的工作表,谢谢</p><p>&nbsp;</p> AQZ1a9tk.rar (8.46 KB, 下载次数: 460)

2008-6-15 22:57 上传

点击文件名下载附件
[求助]如何将28个分店的考勤汇总在一个工作表中

<br/>

LangQueS

<p>汇总表为sheet(1)：</p><p><br/>&nbsp;</p> G9qfygZN.rar (13.83 KB, 下载次数: 705)

2008-6-15 23:53 上传

点击文件名下载附件

<br/>

[此贴子已经被作者于2008-6-15 23:53:08编辑过]

wangtx218

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>LangQueS</i>在2008-6-15 23:43:20的发言：</b><br/><p>汇总表为sheet(1)：</p><p><br/>&nbsp;</p><br/><br/></div><p>&nbsp; </p><p>学习,如果汇总可任意放更好!</p>

lynda12

<p>虽然看不懂VBA编程,但还是非常感谢<strong><font color="#da2549">LangQueS老师的解答.</font></strong></p><p><strong><font color="#da2549">不知道公式是不是可以达到这样的效果?</font></strong></p>

julycookie

唉，解决疑难杂症，还是得会VBA{:soso_e127:}

ae9480

这段代码编的简捷

huhao910

我也有同样的问题，但是我不会VBA  希望有人教我

熊猫酒仙

很好， 很方便
Sub 合并其他工作表数据()
Application.Calculation = xlCalculationManual       '手动重算
x = Sheets.Count                '当前工作簿的工作表数量
For i = 2 To x       '遍历工作表,汇总表为表1
z = 2      '标题行数,标题有几行就改成几
y = Application.CountA(Sheets(i).Range("c" & z + 1 & ":c65536")) + z     '各工作表从标题下1行开始，C列非空单元数量
yy = Application.CountA(Sheets(1).Range("c" & z + 1 & ":c65536")) + z     '汇总表从标题下1行开始，C列非空单元数量
Sheets(1).Range("a" & yy + 1 & ":n" & yy + y - z) = Sheets(i).Range("a" & z + 1 & ":n" & y).Value
Next
Application.Calculation = xlCalculationAutomatic    '自动重算
End Sub

?炎?荒?羽

感谢分享
{:soso_e100:}

朝雨浥轻尘

熊猫酒仙 发表于 2012-8-20 11:55
很好， 很方便
Sub 合并其他工作表数据()
Application.Calculation = xlCalculationManual       '手动重 ...

为什么要选c列？其他列不行么