for i=1 to 4 for each c in range("A1:A4") if cells(i,"C")=c then cells(i,"D")=c.offset(0,1) exit for end if next cnext i
用vlookup函数就行了