Excel：从剪贴板粘贴后，在 A 列上向下移动 5 个单元格

Question

我正在使用宏来粘贴 Unicode 完美运行的文本。 我想在宏中做的是从剪贴板粘贴内容后，当我想粘贴时，单元格选择器应该向下移动 5 个空单元格以进行下一次粘贴。

这是我的宏代码

Sub PASTE()
'
' PASTE Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
    ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
        DisplayAsIcon:=False
End Sub

Answer 1

如果我明白了，您需要将选择移动到当前所选单元格下方的 5 个空单元格（您刚刚在其中粘贴了 Unicode 文本）。

我写了子“MoveDown5”并在你的子上调用它。 最后的结果是：

Sub PASTE()
' PASTE Macro
' Keyboard Shortcut: Ctrl+Shift+A
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
    DisplayAsIcon:=False
MoveDown5
End Sub

Sub MoveDown5()
Dim counter As Integer
counter = 0
Do While counter < 5
    ActiveCell.Offset(1, 0).Select
    If IsEmpty(ActiveCell.Value) Then
        counter = counter + 1
    End If
Loop
End Sub

代码向下移动一个单元格并测试它是否为空。 如果是，则计为空单元格。 如果不是，只需 go 进入下一个循环。

然后向下重复循环一个单元格，直到计数器为 5（不再 <5）。