excel - 粘贴数据后取消选择列

Question

这可能非常简单，但我无法解决它。

我可以使用 Application.CutCopyMode=False 释放复制数据的列，但粘贴数据的列仍保持选中状态，我尝试了 ActiveSheet.EnableSelection = xlNone 按照论坛之一的建议，没有任何成功，我的代码的其余部分工作正常:

Dim wb As Workbook
Dim t1 As Worksheet
Dim r As Worksheet

Set wb = ActiveWorkbook
Set t1 = Sheets("dataT1")
Set r = Sheets("HPV1report")

t1.Range("D3:CR5").Copy
r.Range("A2").PasteSpecial _
    Paste:=xlPasteValues, _
    Operation:=xlNone, _
    SkipBlanks:=False, _
    Transpose:=True
    Selection.EntireColumn.AutoFit
End sub

我能想到的另一件事是选择单元格 A1，这样该列就会空闲，但如果可以的话，我更愿意使用 select。

Answer 1

您无法真正取消选择单元格，因为工作表的本质是始终存在选定的单元格。

可能没有选定单元格的唯一原因是

• 您选择一个对象，例如控件/按钮等。
• 或者像 @moosli 指出的那样保护工作表免受用户交互影响。

所以正确的方法是，正如您已经发现的:
选择任何其他单元格，例如。 A1。

Worksheets("MySheet").Range("A1").Select