blocks|key|1688866|text|Cells(1,1).Select|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1688867|它将带您到单元格A1，从而取消您现有的选择。|unstyled|1688868|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|J|8|@]|9|@]|A|$]]|$1|G|3|-4|5|F|7|K|8|@]|9|@]|A|$]]]|H|$]]

<pre><code>Cells(1,1).Select
</code></pre>

It will take you to cell A1, thereby canceling your existing selection.

blocks|key|1473948|text|Application.CutCopyMode+=+False|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1473949|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>Application.CutCopyMode = False
</code></pre>

blocks|key|1689024|text|选择任意单元格并关闭剪切复制模式。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1689025|Range("A1").Select
Application.CutCopyMode+=+False|code-block|syntax|javascript|1689026|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Select any cell and turn off cutcopymode.

<pre><code>Range("A1").Select
Application.CutCopyMode = False
</code></pre>

blocks|key|1689331|text|你可以在最后简单地使用这段代码。(请勿使用False)|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1689332|Application.CutCopyMode+=+True|code-block|syntax|javascript|1689333|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

You can simply use this code at the end. (Do not use False) 

<pre><code>Application.CutCopyMode = True
</code></pre>

blocks|key|1473790|text|我认为这是行不通的。以下是从Chip+Pearson的网站http://www.cpearson.com/excel/UnSelect.aspx复制的一些代码，没有任何修改。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1473791|UnSelectActiveCell|1473792|此过程将从选定内容中删除活动单元格。|1473793|Sub+UnSelectActiveCell()
++++Dim+R+As+Range
++++Dim+RR+As+Range
++++For+Each+R+In+Selection.Cells
++++++++If+StrComp(R.Address,+ActiveCell.Address,+vbBinaryCompare)+<>+0+Then
++++++++++++If+RR+Is+Nothing+Then
++++++++++++++++Set+RR+=+R
++++++++++++Else
++++++++++++++++Set+RR+=+Application.Union(RR,+R)
++++++++++++End+If
++++++++End+If
++++Next+R
++++If+Not+RR+Is+Nothing+Then
++++++++RR.Select
++++End+If
End+Sub|code-block|syntax|javascript|1473794|UnSelectCurrentArea|1473795|此过程将从选定内容中删除包含活动单元格的区域。|1473796|Sub+UnSelectCurrentArea()
++++Dim+Area+As+Range
++++Dim+RR+As+Range

++++For+Each+Area+In+Selection.Areas
++++++++If+Application.Intersect(Area,+ActiveCell)+Is+Nothing+Then
++++++++++++If+RR+Is+Nothing+Then
++++++++++++++++Set+RR+=+Area
++++++++++++Else
++++++++++++++++Set+RR+=+Application.Union(RR,+Area)
++++++++++++End+If
++++++++End+If
++++Next+Area
++++If+Not+RR+Is+Nothing+Then
++++++++RR.Select
++++End+If
End+Sub|1473797|entityMap|0|LINK|mutability|MUTABLE|url|http://www.cpearson.com/excel/UnSelect.aspx^0|T|17|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|10|8|@]|9|@$A|11|B|12|1|13]]|C|$]]|$1|D|3|E|5|6|7|14|8|@]|9|@]|C|$]]|$1|F|3|G|5|6|7|15|8|@]|9|@]|C|$]]|$1|H|3|I|5|J|7|16|8|@]|9|@]|C|$K|L]]|$1|M|3|N|5|6|7|17|8|@]|9|@]|C|$]]|$1|O|3|P|5|6|7|18|8|@]|9|@]|C|$]]|$1|Q|3|R|5|J|7|19|8|@]|9|@]|C|$K|L]]|$1|S|3|-4|5|6|7|1A|8|@]|9|@]|C|$]]]|T|$U|$5|V|W|X|C|$Y|Z]]]]

I do not think that this can be done. Here is some code copied with no modifications from Chip Pearson's site: <a href="http://www.cpearson.com/excel/UnSelect.aspx" rel="nofollow noreferrer">http://www.cpearson.com/excel/UnSelect.aspx</a>.

UnSelectActiveCell

This procedure will remove the Active Cell from the Selection.

<pre><code>Sub UnSelectActiveCell()
 Dim R As Range
 Dim RR As Range
 For Each R In Selection.Cells
 If StrComp(R.Address, ActiveCell.Address, vbBinaryCompare) &lt;&gt; 0 Then
 If RR Is Nothing Then
 Set RR = R
 Else
 Set RR = Application.Union(RR, R)
 End If
 End If
 Next R
 If Not RR Is Nothing Then
 RR.Select
 End If
End Sub
</code></pre>

UnSelectCurrentArea

This procedure will remove the Area containing the Active Cell from the Selection.

<pre><code>Sub UnSelectCurrentArea()
 Dim Area As Range
 Dim RR As Range

 For Each Area In Selection.Areas
 If Application.Intersect(Area, ActiveCell) Is Nothing Then
 If RR Is Nothing Then
 Set RR = Area
 Else
 Set RR = Application.Union(RR, Area)
 End If
 End If
 Next Area
 If Not RR Is Nothing Then
 RR.Select
 End If
End Sub
</code></pre>

blocks|key|1689156|text|我尝试了您的所有建议，但没有成功，但这里有一个想法对我很有效:从您的选择范围(比如AAA1000000)中选择一个单元格，然后再次选择A1|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1689157|Range("AAA1000000").Activate|1689158|Range("A1").Activate|1689159|盖伊|1689160|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|J|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|K|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|L|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|M|8|@]|9|@]|A|$]]|$1|H|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|I|$]]

Tried all your suggestions, no luck , but here's an idea that worked for me
select a cell out of your selection range (say AAA1000000)
and then select the A1 again

Range("AAA1000000").Activate

Range("A1").Activate

Guy

blocks|key|1688997|text|在Excel2007中，使用select和CutCopyMode属性的组合，可以重置所有选择。它适用于我的用例。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1688998|Application.CutCopyMode+=+xlCopy
ActiveSheet.Range("A"+&+lngRow).Select|code-block|syntax|javascript|1688999|问候Madhur|1689000|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

In Excel 2007, a combination using select and CutCopyMode property, it is possible to reset all the selections. It worked for my use case.

<pre><code>Application.CutCopyMode = xlCopy
ActiveSheet.Range("A" &amp; lngRow).Select
</code></pre>

Regards
Madhur

blocks|key|1689244|text|我在使用Excel+2013时遇到了这个问题。我设置了“冻结窗格”，这导致了问题。当我删除冻结的窗格时，这个问题就解决了。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1689245|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

I had this issue with Excel 2013. I had "freeze panes" set, which caused the problem. The issue was resolved when I removed the frozen panes.

blocks|key|1474384|text|Sub+MyFunc()

++++Range("B6").Select

++++Selection.Locked+=+True

End+Sub|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1474385|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>Sub MyFunc()

 Range("B6").Select

 Selection.Locked = True

End Sub
</code></pre>

blocks|key|1688919|text|您可以设置Application.ScreenUpdating+=+False并选择视图外的单元格，然后将.ScreenUpdating设置为true。这至少不会在当前视图中显示任何选定的单元格。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1688920|entityMap^0|5|Y|1H|F|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]|$9|K|A|L|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|M|8|@]|D|@]|E|$]]]|G|$]]

You could set the <code>Application.ScreenUpdating = False</code> and select a cell out of view and then set the <code>.ScreenUpdating</code> to true. This would at least not show any selected cells in the current view.

blocks|key|1689083|text|Selection(1,+1).Select将只选择当前选定内容的左上角单元格。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1689084|entityMap^0|0|M|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

<code>Selection(1, 1).Select</code> will select only the top left cell of your current selection.

blocks|key|1689440|text|执行如下语句：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1689441|ActiveSheet.Cells(ActiveWindow.SplitRow%2B1,ActiveWindow.SplitColumn%2B1).Select|code-block|syntax|javascript|1689442|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Do statement as below:
<pre><code>ActiveSheet.Cells(ActiveWindow.SplitRow+1,ActiveWindow.SplitColumn+1).Select
</code></pre>

When I create a graph after using range.copy and range.paste it leaves the paste range selected, and then when I create a graph a few lines later, it uses the selection as the first series in the plot. I can delete the series, but is there a more elegant way to do this? I tried 

<pre><code>Set selection = nothing
</code></pre>

but it won't let me set selection. I also tried selection.clear, but that just cleared the last cells that were selected, and still added an extra series to the plot.

Setting selection to Nothing when programming Excel

当我使用range.copy和range.paste创建图形时，它会将粘贴范围保留为选中状态，然后当我在几行之后创建图形时，它会将所选内容用作绘图中的第一个系列。我可以删除这个系列，但是有没有更优雅的方法呢？我试过了Set selection = nothing但它不会让我设置选择。我也尝试了selection.clear，但这只是清除了选定的最后一个单元格，并且仍然向图中添加了额外的序列。

问在编写Excel时将选定内容设置为空
EN

回答 12

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在编写Excel时将选定内容设置为空EN

回答 12

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在编写Excel时将选定内容设置为空
EN