如何修改Excel宏实现粘贴Unicode Text后单元格选择器下移5格？

在现有宏的基础上，只需添加一行代码就能实现粘贴完成后将单元格选择器下移5个单元格的需求。修改后的完整代码如下：

Sub PASTE()
'
' PASTE Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
    ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
        DisplayAsIcon:=False
    ' 下移5个单元格
    ActiveCell.Offset(5, 0).Select
End Sub

代码说明 #

• ActiveCell.Offset(5, 0).Select 这行代码的作用是：以当前选中的单元格为基准，向下偏移5行（第一个参数5代表行数偏移，正数向下；第二个参数0代表列数偏移，保持原列），然后选中这个新的单元格。

这样每次执行粘贴后，选择器会自动跳到当前位置下方第5个空白单元格，方便下次粘贴操作。

内容的提问来源于stack exchange，提问作者FirstKing