[已解决]求助，有附件

qjsu

求助，具体请参见附件。。。

最佳答案

月排行榜 / 总排行榜

mfksypss

2012-5-24 08:03

qjsu 发表于 2012-5-23 22:58
我把宏添加进去之后就是这个效果，您给检验一下呗

不好意思，有一个字母打错了。

跳转到最佳答案楼层

mfksypss

应该是大于０吧，可以用ＶＢＡ不？

qjsu

mfksypss 发表于 2012-5-23 22:28
应该是大于０吧，可以用ＶＢＡ不？

是大于0，也包括0，可以用VBA

mfksypss

Sub ss()
Dim arr(), sh As Worksheet
n = Application.InputBox("请输入要统计的工作表个数:", , , , , , 1) '要统计的工作表放在前面
With Sheets("sheet3")
For x = 1 To n
   For y = 6 To Sheets(x).Range("A5").End(xlDown).Row
        n = .Range("B65536").End(xlUp).Row + 1
        If Sheets(x).Cells(y, 4) > 0 Then
            .Cells(n, 2) = Sheets(x).Cells(y, 2)
            .Cells(n, 3) = Sheets(x).Cells(y, 3)
            .Cells(n, 4) = Sheets(x).Cells(y, 4)
        End If
    Next y
Next x
End With
End Sub

qjsu

mfksypss 发表于 2012-5-23 22:40
Sub ss()
Dim arr(), sh As Worksheet
n = Application.InputBox("请输入要统计的工作表个数:", , , , ,  ...

基本应该是你说的意思   但是运行就死机，能否优化一下啊？

qjsu

一运行就出现这个

qjsu

mfksypss 发表于 2012-5-23 22:40
Sub ss()
Dim arr(), sh As Worksheet
n = Application.InputBox("请输入要统计的工作表个数:", , , , ,  ...

我把宏添加进去之后就是这个效果，您给检验一下呗

mfksypss

qjsu 发表于 2012-5-23 22:58
我把宏添加进去之后就是这个效果，您给检验一下呗

不好意思，有一个字母打错了。

qjsu

mfksypss 发表于 2012-5-24 08:03
不好意思，有一个字母打错了。

好像还是不能用啊，兄弟，再帮忙看看呗~~

qjsu

图标上有个叹号~~！！