操做情况:
本工做表中的A1:E10区域中,A1:B5和D10单位格被锁定。
操做目的:
选定以上被锁定的所有单位格。
操做办法:
1。在本工做表标签上击右键后点“查看代码”,在弹出的代码窗口中粘贴以下代码:
Sub 选择锁定单位格()
Dim myRange1 As Range, myRange2 As Range, rng As Range
Set myRange1 = Range("A1:E10") '指定被锁定的单位格所在的单位格区域
For Each rng In myRange1
If myRange2 Is Nothing And rng。
Locked = True Then
Set myRange2 = rng
End If
If rng。Locked = True Then
Set myRange2 = Union(myRange2, rng)
End If
Next
myRange2。
Select
MsgBox "锁定单位格的地址为:" myRange2。Address
Set myRange1 = Nothing
End Sub
然后封闭代码窗口回到工做表中。
2。点击“东西/宏/宏/Sheet1。
选择锁定单位格/施行”,即可将被锁定的所有单位格选定。
若是那些锁定单位格有配合特点,能够定位。好比要选择包罗公式的单位格,能够编纂-定位-公式,如许就能选中。
若是没有任何规则,只妙手动选择,按住CTRL键的同时,用鼠标选择多个单位格。
0