如何将满足条件的行自动从一个表移动到另外一个表

gigngao · 发表于 2012-7-27 10:09

附件里面是一个库存管理表，我希望在Stock表中当剩余长度低于10m时自动整行转移到Leftover表中去，并且删除在Stock中的行，之前在论坛里面看到过一个帖子，我修改了一下，但是这段宏是针对Stock中的所有列的数据，我只是想针对Stock中的H列，如何定义这个区间

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value < "10" Then
Target.EntireRow.Copy Sheets(4).Range("A65536").End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub

gigngao · 发表于 2012-7-27 11:42

求助啊，有人帮忙吗？

gigngao · 发表于 2012-7-27 15:59

还没有人看到我的帖子吗，在线急等

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

[求助] 如何将满足条件的行自动从一个表移动到另外一个表