老师们你们好！VBA如何提取和移动位置？请老师们帮忙看看。谢谢！

13602822168

老师们你们好！VBA如何提取和移动位置？请老师们帮忙看看。谢谢！

每一行都这样，从第16行开始。

taller

1. Sub Demo()
   
2.     iCnt = Application.CountIf(Range("W16:BT16"), 11)
   
3.     If iCnt < 3 Then
   
4.         bv2 = [bv2]
   
5.         With Range("W16:BT16")
   
6.             For i = 1 To .Cells.Count
   
7.                 If .Cells(i).Value = 11 Then
   
8.                     Range("BV16").Offset(bv2, i - 1) = 11
   
9.                 End If
   
10.             Next
    
11.         End With
    
12.     End If
    
13. End Sub
    

复制代码

13602822168

taller 发表于 2024-8-24 01:25

你好！先谢谢你。对不起，没说清楚。并不是只检测一行，是W16:BT200,每一行都要。应该怎么改。谢谢！！！

taller

1. Sub Demo()
   
2.     bv2 = [bv2]
   
3.     For j = 0 To 200 - 16
   
4.         Set r = Range("W16:BT16").Offset(j, 0)
   
5.         iCnt = Application.CountIf(r, 11)
   
6.         If iCnt = 1 Or iCnt = 2 Then
   
7.             For i = 1 To r.Cells.Count
   
8.                 If r.Cells(i).Value = 11 Then
   
9.                     Range("BV16").Offset(bv2 + j, i - 1) = 11
   
10.                 End If
    
11.             Next
    
12.         End If
    
13.     Next
    
14. End Sub

复制代码

13602822168

taller 发表于 2024-8-24 11:13

非常感谢！非常感谢！非常感谢！！！！！！！！！