VBA根据条件，将符合条件的赋值，在另外区域标识出来。有劳各位老师看看，谢谢

13602822168

VBA根据条件，将符合条件的赋值，在另外区域标识出来。有劳各位老师看看，谢谢

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.26
   
2.     arr = [t16:ax1500]
   
3.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
4.     For i = 1 To UBound(arr)
   
5.         m = m + 1
   
6.         n = 0
   
7.         For j = 1 To UBound(arr, 2)
   
8.             If arr(i, j) <> Empty Then
   
9.                 n = n + 1
   
10.                 brr(m, n) = arr(i, j)
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     [az16:bs10000] = ""
    
15.     [az16].Resize(m, UBound(arr, 2)) = brr
    
16. End Sub
    

复制代码

13602822168

ykcbf1100 发表于 2024-8-26 19:33
参与一下。。。

可以不写在模块吗？？谢谢！