怎么在A列找到指定范围数据并标注出来

mohao

excel玉米

sub 查找并标注()
     arr=usedrange

     for i=lbound(arr) to ubound(arr)

          for k=1 to 24
               if len(k)=1 then  
                   Kstr="0" & k
               else
                   Kstr=k
               end if
               if arr(i,1)="FW-CQD-10" & Kstr then
                  arr(i,2)="备注"
               end if
          next k
     next i
     [A1].Resize(ubound(arr),ubound(arr,2))=arr
end sub

cidanji

1. Sub test()
   
2.     Dim i&, arr(), no&
   
3.     arr = Range("a1:b" & Cells(Rows.Count, 1).End(3).Row)
   
4.     For i = 2 To UBound(arr)
   
5.         If arr(i, 1) Like "FW-CQD-10*" Then
   
6.             no = Int(Right(arr(i, 1), 4))
   
7.             If no >= 1001 And no <= 1024 Then arr(i, 2) = "备注"
   
8.         End If
   
9.     Next
   
10.     Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
11. End Sub

复制代码