select case

Lareina_wol

如何用select case语句实现


1.如果A列名称是AAA，则B列相应填入888，

如果A列名称是GGG，则B列相应填入999，

其他情况，B列不用修改。

2. 同时，B列修改填入的数据的单元格用黄色标识。

answer6141

1. <blockquote>
   

复制代码

shenjianrong163

Sub test()
Dim i, irow As Integer
Dim arr
Dim Rng As Range
With Worksheets("Sheet1")
    arr = .UsedRange
    For i = 1 To UBound(arr)
        Select Case Trim(arr(i, 1))
            Case Is = "AAA"
                arr(i, 2) = 888
                If Rng Is Nothing Then
                    Set Rng = .Cells(i, 2)
                Else
                    Set Rng = Union(Rng, .Cells(i, 2))
                End If
            Case Is = "GGG"
                arr(i, 2) = 999
                If Rng Is Nothing Then
                    Set Rng = .Cells(i, 2)
                Else
                    Set Rng = Union(Rng, .Cells(i, 2))
                End If
        End Select
    Next
    .UsedRange.ClearContents
    Range("a1").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    If Not Rng Is Nothing Then
        Rng.Interior.Color = vbYellow
    End If
End With
End Sub

Lareina_wol

answer6141 发表于 2020-1-29 21:56

谢谢，但是第二个条件没有满足，要用黄色标识

answer6141

answer6141 发表于 2020-1-29 21:56

1. Option Explicit
   
2. 
   
3. Sub test()
   
4. Dim i, irow As Integer
   
5. Dim arr
   
6. irow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
   
7. arr = Range("a2:b" & irow)
   
8. For i = 1 To UBound(arr)
   
9. 
   
10.     Select Case Trim(arr(i, 1))
    
11.         Case Is = "AAA"
    
12.             Debug.Print arr(i, 1)
    
13.             
    
14.             arr(i, 2) = 888
    
15.             Cells(i + 1, 2).Interior.Color = vbYellow
    
16.         Case Is = "GGG"
    
17.             arr(i, 2) = 999
    
18.             Cells(i + 1, 2).Interior.Color = vbYellow
    
19.     End Select
    
20. Next
    
21. Range("a2").Resize(UBound(arr, 1) - 1, UBound(arr, 2)) = arr
    
22. End Sub

复制代码