EXCEL表格汇总，有加分!

襄阳城

<p>EXCEL表格汇总，有加分!</p>
<p><img src="http://img.baidu.com/img/iknow/icn_point.gif"> 悬赏分：110 -</p>
<p>解决时间：2010-9-27 10:09</p>
<p>我需要做一张总表汇总周一至周五的表格。</p>
<p>其中，周一至周五的表格，表头是一样的，我现在需要做的总表就是周一到周五的数字填写好以后，表总里会自动显示出来。</p>
<p>提问者： 匿名</p>
<p>最佳答案</p>
<p>我看看吧，Hi我</p>
<p>已经发到你邮箱，注意查收：</p>
<p>------------防定性为作弊，部分代码-----------</p>
<p>Private Sub CommandButton1_Click()</p>
<p>If MsgBox("开始汇总?"， 1) = 1 Then aa</p>
<p>End Sub</p>
<p>Public Sub aa()</p>
<p>Dim iSh As String: iSh = "周一周二周三周四周五"</p>
<p>Dim sh As Worksheet， c As Range</p>
<p>Dim fd As Range， fd0 As Range</p>
<p>Dim zT As Range， fT As Range</p>
<p>Dim zr As Long， fr As Long</p>
<p>Dim ic As Integer， ic0 As Integer</p>
<p>Dim zSh As Worksheet: Set zSh = ActiveSheet</p>
<p>With zSh</p>
<p>Set zT = .Range(.Cells(3， 2)， .Cells(3， 256).End(xlToLeft))</p>
<p>.Rows("4:65535").Delete</p>
<p>End With</p>
<p>For Each sh In Worksheets</p>
<p>If iSh = "" Then Exit For</p>
<p>If InStr(iSh， sh.Name) Then</p>
<p>iSh = Replace(iSh， sh.Name， "")</p>
<p>……</p>
<p>--------------</p>
<p>以后有问题，可以留言，或QQ</p>
<p>0</p>
<p>回答者：</p>
<p>sxpose - 十一级   2010-9-24 18:10</p>
<p>我来评论>></p>
<p>提问者对于答案的评价：</p>
<p>谢谢！ 不好意思 追加了悬赏和额外奖励，上线只提得到160，下次类似的问题再请教你吧，再追加得分。</p>