修改B列数据

Lareina_wol

1.如果A列名称是AAA，则B列相应填入888，
如果A列名称是GGG，则B列相应填入999，
其他情况，B列不用修改。


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

青春の火焰

Sub t()
Dim i%
For i = 1 To 7
If Range("a" & i) = "AAA" Then
Range("b" & i) = "888"
Range("b" & i).Interior.ColorIndex = 6
End If
If Range("a" & i) = "GGG" Then
Range("b" & i) = "999"
Range("b" & i).Interior.ColorIndex = 6
End If
Next i
End Sub

sj15627581616

Sub TS()
r = Cells(Rows.Count, 1).End(3).Row
For I = 2 To r
If Cells(I, 1) = "AAA" Then
Cells(I, 2) = 888
Cells(I, 2).Interior.Color = 65535
End If
If Cells(I, 1) = "GGG" Then
Cells(I, 2) = 999
Cells(I, 2).Interior.Color = 65535
End If
Next
End Sub