【Excel】尋找字串，並取代隔壁行的舊資料

excel vba find

yumi1043 2020-01-09 16:45:09 ‧ 2165 瀏覽

分享至

各位大大們好！
假設Ａ欄是門市
B欄是門市號碼
D跟E分別是門市跟新門市號碼

請問如何用vba讓新的號碼取代舊的呢？(D欄沒跟A欄完全相符）
感謝各位大大們的幫忙！
（下圖是簡單製作的範例）

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

ccenjor

iT邦高手 1 級 ‧ 2020-01-09 22:26:08

最佳解答

Sub 巨集1()
'
' 巨集1 巨集
'

'
Selection.FormulaArray = _
"=IFERROR(VLOOKUP(LEFT(RC[-2],1),IF({1,0},LEFT(R1C4:R6C4,1),R1C5:R6C5),2,0),RC[-1])"
Selection.AutoFill Destination:=Range("C1:C6"), Type:=xlFillDefault
Range("C1:C6").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub