VBA一次选定所有未锁定单元格

element

其实我的本意是想利用Sheet1.EnableSelection = xlUnlockedCells<br/>可惜没有利用上，应该还有更好的办法<br/>

北部湾

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>兰色幻想</i>在2008-2-19 22:12:00的发言：</b><br/><p>本题可以结贴了.感谢element的好方法.</p><p>下面是我写的:</p><p>Sub bb()<br/>Dim mrg As Range, K As Integer<br/>&nbsp; For Each mrg In ActiveSheet.UsedRange<br/>&nbsp;&nbsp;&nbsp;&nbsp; If mrg.Locked = False Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; K = K + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If K = 1 Then mrg.Select<br/>&nbsp;&nbsp;&nbsp;&nbsp; Union(Selection, mrg).Select<br/>&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>Next mrg<br/>End Sub</p></div><p>学习了，谢谢校长让偶学会了&nbsp; ActiveSheet.UsedRange<br/></p>

工＆贝

<p>顶</p><p>activesheet.usedrange=已经使用过的单元格</p>

xxing01

不错，正好用上