求大神帮助，通过VBA把某个单元格为空的列提取到新的工作表中

hntwty

求各位大神帮忙，我想通过某个单元格为空时，提取单元格所在行的所有数据，因为列数不固定，我在网上查了数组函数，可以处理，但是可能出现没有提取到尾的状况，所以想起大神帮忙，在此谢谢各位帮忙看看，具体请查看图片及表格，

hntwty

麻烦大神帮忙看看，谢谢

liulang0808

1. Sub test()
   
2.     ra = 0
   
3.     rb = 0
   
4.     arr = ActiveSheet.UsedRange.Offset(1)
   
5.     brr = ActiveSheet.UsedRange.Offset(1)
   
6.     For j = 1 To UBound(arr) - 1
   
7.         If Val(arr(j, 4)) < 2 Then
   
8.             rb = rb + 1
   
9.             For i = 1 To UBound(arr, 2)
   
10.                 brr(rb, i) = arr(j, i)
    
11.             Next i
    
12.             If Val(arr(j, 4)) = 0 Then
    
13.                 ra = ra + 1
    
14.                 For i = 1 To UBound(arr, 2)
    
15.                     arr(ra, i) = arr(j, i)
    
16.                 Next i
    
17.             End If
    
18.         End If
    
19.     Next j
    
20.     If ra > 0 Then Sheets(2).[a1].Resize(ra, UBound(arr, 2)) = arr
    
21.     If rb > 0 Then Sheets(3).[a1].Resize(rb, UBound(brr, 2)) = brr
    
22. End Sub

复制代码

liulang0808

附件内容供参考。。。。。。

hntwty

谢谢大神帮助，请大神帮忙，这个可以根据sheet1表中库存数量进行自动更新吗？就像工作表的函数一样，不需要点击其他东西了。

hntwty

liulang0808 发表于 2019-12-24 21:46
附件内容供参考。。。。。。

谢谢大神帮助，请大神帮忙，这个可以根据sheet1表中库存数量进行自动更新吗？就像工作表的函数一样，不需要点击其他东西了。

liulang0808

hntwty 发表于 2019-12-24 22:01
谢谢大神帮助，请大神帮忙，这个可以根据sheet1表中库存数量进行自动更新吗？就像工作表的函数一样，不 ...

每次运行下代码
或者使用表格事件吧

hntwty

liulang0808 发表于 2019-12-24 22:03
每次运行下代码
或者使用表格事件吧

好的，谢谢liulang0808大神的帮助，我去看代码好好学习了。。。