使用vba筛选赋值

tmzxo120

使用VBA筛选，条件：a列>3000000或者b列>20000，筛选出符合条件记录并在c列赋值

limonet

其实就是高级筛选。

limonet

Sub limonet()
    Range("C:E").Clear
    Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "f1:g3"), CopyToRange:=Range("C1"), Unique:=False
End Sub

ykcbf1100

看在以前是同行的份上，写一个吧。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.8.14
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 2)
   
4.     ReDim brr(1 To r, 1 To 2)
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 1) > 3000000 Or arr(i, 2) > 20000 Then
   
7.             m = m + 1
   
8.             brr(m, 1) = arr(i, 1)
   
9.             brr(m, 2) = arr(i, 2)
   
10.         End If
    
11.     Next
    
12.     [c2:d10000] = ""
    
13.     [c2].Resize(m, 2) = brr
    
14.     MsgBox "OK！"
    
15. End Sub
    

复制代码

tmzxo120

是给筛选出来的记录，在C列进行赋值，不是赋值记录

tmzxo120

是对筛选出的记录，在C列赋值，不是复制。比如说A1：B1符合条件，就在C1单元格填“A”！

ykcbf1100

tmzxo120 发表于 2024-8-14 15:11
是对筛选出的记录，在C列赋值，不是复制。比如说A1：B1符合条件，就在C1单元格填“A”！

是这意思吗？

ykcbf1100

改一下。。。

1. Sub ykcbf()  '//2024.8.14
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Columns(3) = ""
   
4.     For i = 2 To r
   
5.         If Cells(i, 1) > 3000000 Then Cells(i, 3) = "A"
   
6.         If Cells(i, 2) > 20000 Then Cells(i, 3) = "B"
   
7.     Next
   
8.     MsgBox "OK！"
   
9. End Sub
   

复制代码

tmzxo120

ykcbf1100 发表于 2024-8-14 15:21
是这意思吗？

是先按条件筛选，然后对筛选出来记录赋值