上篇經(jīng)驗分享了如何編寫VBA代碼，在單元格的姓名前快速添加五角星號。本篇經(jīng)驗將通過實例，繼續(xù)和大家分享一下如何編寫VBA代碼，在單元格的姓名后快速添加五角星號。 步驟1：打開VBA編輯器 在工作表

上篇經(jīng)驗分享了如何編寫VBA代碼，在單元格的姓名前快速添加五角星號。本篇經(jīng)驗將通過實例，繼續(xù)和大家分享一下如何編寫VBA代碼，在單元格的姓名后快速添加五角星號。

步驟1：打開VBA編輯器

在工作表中，點擊菜單欄【開發(fā)工具】，在其工具欄內(nèi)，點擊【visual basic】。這將進入VBA編輯界面。

步驟2：插入模塊

點擊菜單欄【插入】，在其下拉菜單中，選擇【模塊】。這將彈出模塊編輯窗口。

步驟3：輸入VBA代碼

在代碼編輯窗口輸入以下代碼：

Sub test5()
    Set regx  CreateObject("")
    With regx
        .Global  True
        .Pattern  "(?$)"
        For Each Rng In Range("a2", Cells(, 1).End(xlUp))
            (0, 3)  .Replace(Rng, "★")
        Next
    End With
End Sub

簡單解釋一下，"(?$)"是指姓名之后的位置。

步驟4：運行代碼

在VBA窗口中，點擊【運行】按鈕。這將快速地在單元格中的姓名之后添加上五角星號。