谁能帮我检验一下这个宏有没有什么问题，谢谢！！

qjsu

Sub ss()
Dim arr(), sh As Worksheet
n = Application.InputBox("请输入要统计的工作表个数:", , , , , , 1) '要统计的工作表放在前面
With Sheets("sheet1")
For x = 1 To n
    For y = 60 To Sheets(x).Range("C59").End(xlDown).Row
         m = .Range("B150").End(xlUp).Row + 1
         Set sh = Sheets(x)
         If sh.Cells(y, 13) > 0 Then
             .Cells(m, 7) = sh.Cells(y, 7)
             .Cells(m, 8) = sh.Cells(y, 8)
             .Cells(m, 9) = sh.Cells(y, 9)
             .Cells(m, 13) = sh.Cells(y, 13)
         End If
     Next y
Next x
End With
End Sub

zjcat35

你上个附件吧!!  感觉问题挺多,但想改好,需要看看附件!

徐淑颖

这个真的看不懂
{:101:}

qjsu

zjcat35 发表于 2012-5-25 10:54
你上个附件吧!!  感觉问题挺多,但想改好,需要看看附件!

有密码的，我把密码发你信息

zjcat35

看了你的表,实在不知道你想要什么东西!

qjsu

zjcat35 发表于 2012-5-25 11:15
看了你的表,实在不知道你想要什么东西!

我想要获取多个表中G、H、I、M列的数据，最终汇总成一个表格，条件是当M列数字大于0的时候则返回对应的G、H、I、M列数据