粘贴数据后取消选择列

这可能很简单，但我无法解决此问题。粘贴数据后取消选择列

我可以腾出从那里我用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所以列将获得免费的，但我更喜欢，如果我可以使用选择。

来源

2017-09-04 vj12

您不能真正取消选择一个单元格，因为它总是存在选定单元格的工作表性质。

的唯一原因有可能是没有选择的小区

选择等的控制/按钮物体等
或防止用户交互的工作表像@moosli指出。

所以去正确的方法是，因为你已经发现：
选择任何其他细胞，如。 A1。

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

来源

2017-09-04 08:55:15

感谢你为这个，我一直保持这个选项在底部选择“A1”序从数据列中删除secetion，还有没有其他的办法除了“中选择”从列移开，而不使用“选择”？ – vj12

@ vj12没有选择另一个单元格，而是选择当前选定的单元格，这是官方取消选择当前单元格的方式。 –

粘贴数据后取消选择列

回答

相关问题