Question

VBA实现 excle 如果B列为某数值，则将对应A列数值自动替换

如何用VBA实现当B列某行 为aaa时，则B列对应A行数据替换成ccc例如：1F 一年级1F 二年级2F 三年级2F 四年级3F 五年级3F 六年级当B列为二年级时，则A列对应行数据自动替换为2F，当B列某行 为五年级时，则A列对应行数据替换为1F，没有规律，只是制定某些数据

Answer 1

=IF(OR(B1="一年级",B1="二年级"),"1F",IF(OR(B1="三年级",B1="四年级"),"2F","3F"))
A1中写这个公式，往下拉就ok了

追问

VBA实现啊 ，老师

追答

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
for i=1 to 6
    if cells(i,2)="一年级" or cells(i,2)="二年级"  then cells(i,1)="1F"
    if cells(i,2)="三年级" or cells(i,2)="四年级"  then cells(i,1)="2F"
    if cells(i,2)="五年级" or cells(i,2)="六年级"  then cells(i,1)="3F"
next i
end sub