求助如何编制一个宏，将附件Sheet1中“Y”列和“Z”列中小于0的所有数据信息，分别...

liujuntao · 发表于 2017-3-5 21:51

如何编制一个宏，将附件Sheet1中“Y”列和“Z”列中小于0的所有数据信息，分别复制连续复制到Sheet2中去？
我自己录制的宏，但是，当Sheet1中的“Y”列和“Z”列负数行数增加或减少时，不能满足要求。请求老师们帮忙。
谢谢！

skyzxh · 发表于 2017-3-5 21:53

筛选一下，复制出去不就行了？。。。。。。。。。。。。。。。。。。。

liujuntao · 发表于 2017-3-5 21:56

工作表信息量很大，我删除了很多。希望能借助宏的作用，请求老师们帮助，谢谢了。

鹤舞西楼 · 发表于 2017-3-5 23:21

是Y列以前的列数据都复制吧？
写了几行代码，看是不是这样？[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\316034664\QQ\WinTemp\RichOle\K_CMSD@Y72Z@RE$_HU@I9QE.png[/img]

lsc900707 · 发表于 2017-3-6 01:00

liujuntao 发表于 2017-3-5 21:56
工作表信息量很大，我删除了很多。希望能借助宏的作用，请求老师们帮助，谢谢了。

代码放模块中，按钮放sheet2：
Sub lsc()
[a9:z5000].ClearContents
Dim arr, brr
arr = Sheets("sheet1").UsedRange
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 9 To UBound(arr)
      If arr(i, 25) < 0 Or arr(i, 26) < 0 Then
         m = m + 1
         For j = 1 To UBound(arr, 2)
               brr(m, j) = arr(i, j)
         Next
      End If
Next
[A9].Resize(m, UBound(arr, 2)) = brr
End Sub

liujuntao · 发表于 2017-3-6 06:22

感谢lsc900707侠圣的精心指导，实在是高手啊。

liujuntao · 发表于 2017-3-6 07:59

Lsc900707你好，我试了一下，最后一部不能运行。请帮忙再看看，多谢

liujuntao · 发表于 2017-3-6 08:03

[A9].Resize(m, UBound(arr, 2)) = brr
End Sub显示黄色有问题的。多谢老师指点一下！

liujuntao · 发表于 2017-3-7 20:22

多谢高手指教，问题解决！

lsc900707 · 发表于 2017-3-7 20:48

liujuntao 发表于 2017-3-7 20:22
多谢高手指教，问题解决！

不知道你提了这么多问题，你要点击帖子左下角的“回复”，我才知道你的回复呀。
你的问题应该是原有数据没有清除造成的吧，已经解决了吗？

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

[求助] 求助如何编制一个宏，将附件Sheet1中“Y”列和“Z”列中小于0的所有数据信息，分别...