多工作表汇总

九冄②七号 · 发表于 2012-12-15 14:13

本帖最后由九冄②七号于 2012-12-18 09:31 编辑

Excel2003.rar (220.22 KB, 下载次数: 14)

残疵统计表.rar (10.58 KB, 下载次数: 22)
附件是问题的说明，就是根据等级一列中含有级别的一整行汇总到另一个工作表中~~~！谢谢~~~~~！

heaven827 · 发表于 2012-12-15 14:58

heaven827 · 发表于 2012-12-15 15:01

SQL语句如下，但是工作表中名称中含#符号，我把工作表的#符号先去掉了，然后用SQL做了一下，语句可能不够简洁，另外，
当工作表中名称中含#符号如何引用表名称暂时还不清楚，只能先这样处理了

select "1机" as 机号, * from [1机$A2:J100] where 等级<> "" union all
select "2机" as 机号, * from [2机$A2:J100] where 等级<> "" union all
select "3机" as 机号, * from [3机$A2:J100] where 等级<> "" union all
select "4机" as 机号, * from [4机$A2:J100] where 等级<> ""

复制代码

490540970 · 发表于 2012-12-15 15:01

Private Sub CommandButton1_Click()
k = 0
For i = 1 To 4
endrow = Sheets(i).[a65536].End(3).Row
For j = 3 To endrow
      If Sheets(i).Cells(j, "J") Like "*等" Then
         k = k + 1
            For m = 1 To 10
            Sheet5.Cells(k, m) = Sheets(i).Cells(j, m)
            Next m
      End If
Next j
Next i
End Sub
用法，插入一个按钮，将上面的代码粘过去就是

九冄②七号 · 发表于 2012-12-17 09:59

490540970 发表于 2012-12-15 15:01
Private Sub CommandButton1_Click()
k = 0
For i = 1 To 4

Private Sub CommandButton1_Click()
k = 0
For i = 4 To 15
endrow = Sheets(i).[a65536].End(3).Row
For j = 39 To endrow
      If Sheets(i).Cells(j, "J") Like "*等*" Then
         k = k + 1
            For m = 1 To 25
            Sheet3.Cells(k, m) = Sheets(i).Cells(j, m)
            Next m
      End If
Next j
Next i
End Sub

大侠看看  我通过你的代码改的有问题吗？怎么行不通啊？

490540970 · 发表于 2012-12-17 20:49

在我本地测试好着呢，现在有问题，想来是你表结构的问题，把你有问题的表发个附件上来好解决。

九冄②七号 · 发表于 2012-12-18 09:32

490540970 发表于 2012-12-17 20:49
在我本地测试好着呢，现在有问题，想来是你表结构的问题，把你有问题的表发个附件上来好解决。

附件以上传在Excel2003就是~~~！在一楼麻烦了

490540970 · 发表于 2012-12-18 20:55

九冄②七号发表于 2012-12-18 09:32
附件以上传在Excel2003就是~~~！在一楼麻烦了

附件看了，有些不明白，请你加我QQ，然后说明问题，我好明白你要做什么，然后再给你编写

		自动登录	找回密码
密码			免费注册