錦子老師

YUMI：「錦子老師，假設Ａ欄是門市，B欄是舊門市號碼，D跟E分別是門市跟新門市號碼。

請問如何用VBA讓新的號碼取代舊的呢？(D欄沒跟A欄完全相符）感謝幫忙！」

下圖是簡單製作的範例：

錦子老師：「

首先按ALT+F11開始VBA視窗。

點取「插入 > 模組」指令，輸入下列程序：

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

按ALT+F4鍵，關閉VBA視窗，回到工作表。

點取C1儲存格。

點取「檢視 > 巨集 > 檢視巨集」指令。

在【巨集】對話方塊，點取「巨集」項目，再點取「執行」鈕。

以上就是今天主要學習的知識點，希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

部落格相關範例