[已解决]vba排序和i列非0信息调用

龙送农68

vba排序和i列非0信息调用

用vba：

1、将“库存汇总”表按结存数量i列进行排序；

2、先将“库存汇总”表的食品名称为"大米"和"菜仔油"信息调到出库单，然后按结存数量不为0的信息调用再调到出库单(出库单表的b至d 列等于库存汇总表的b至d 列，出库单的e至f列等于库存汇总表的i至j 列).

最佳答案

月排行榜 / 总排行榜

林木水123

2023-9-27 17:46

1. Sub 林demo2()
   
2. '到出库单
   
3. Dim h  As Integer, arr, i As Integer, K As Integer
   
4. With Sheet1
   
5.     h = .Range("b65535").End(xlUp).Row
   
6.     arr = .Range("b6:j" & h)
   
7.     For i = 1 To UBound(arr)
   
8.         If arr(i, 1) = "大米" Or arr(i, 1) = "菜籽油" Then
   
9.             If arr(i, 8) > 0 Then
   
10.                 K = K + 1
    
11.                 Sheet2.Range("B" & K + 6).Resize(1, 3) = .Range("B" & i + 5).Resize(1, 3).Value
    
12.                 Sheet2.Range("E" & K + 6).Resize(1, 2) = .Range("I" & i + 5).Resize(1, 2).Value
    
13.             End If
    
14.         End If
    
15.     Next i
    
16. End With
    
17. End Sub

复制代码

跳转到最佳答案楼层

林木水123

1. Sub 林demo1()
   
2. '将“库存汇总”表按结存数量i列进行排序
   
3. Dim h  As Integer
   
4. With Sheet1
   
5.     h = .Range("b65535").End(xlUp).Row
   
6.     .Range("B6:J" & h).Sort .Range("i6"), xlDescending
   
7. End With
   
8. End Sub

复制代码

林木水123

1. Sub 林demo2()
   
2. '到出库单
   
3. Dim h  As Integer, arr, i As Integer, K As Integer
   
4. With Sheet1
   
5.     h = .Range("b65535").End(xlUp).Row
   
6.     arr = .Range("b6:j" & h)
   
7.     For i = 1 To UBound(arr)
   
8.         If arr(i, 1) = "大米" Or arr(i, 1) = "菜籽油" Then
   
9.             If arr(i, 8) > 0 Then
   
10.                 K = K + 1
    
11.                 Sheet2.Range("B" & K + 6).Resize(1, 3) = .Range("B" & i + 5).Resize(1, 3).Value
    
12.                 Sheet2.Range("E" & K + 6).Resize(1, 2) = .Range("I" & i + 5).Resize(1, 2).Value
    
13.             End If
    
14.         End If
    
15.     Next i
    
16. End With
    
17. End Sub

复制代码

龙送农68

林木水123 发表于 2023-9-27 17:46

老师：先调"大米"和"菜仔油"信息调到出库单，已经实现。麻烦老师帮看：结存数量不为0的信息同时好要调到出库单。