用什么语句可以实现锁定不连续的很多单元格？求助大神！

矿大凉白开

Sub 锁定原始表指标合计行()
Range("F16:R16,F29:R29,F42:R42,F55:R55,F68:R68,F81:R81,F94:R94,F107:R107,F120:R120,F133:R133,F146:R146,F159:R159,F172:R172,F185:R185,F198:R198,F211:R211,F224:R224,F237:R237,F250:R250,F263:R263,F276:R276,F289:R289,F302:R302,F315:R315,F328:R328,F341:R341,F354:R354,F367:R367,F380:R380,F393:R393,F406:R406,F419:R419,F432:R432,F445:R445,F458:R458,F471:R471,F484:R484,F497:R497,F510:R510,F523:R523,F536:R536,F549:R549,F562:R562,F575:R575,F588:R588,F601:R601,F614:R614,F627:R627,F640:R640,F653:R653,F666:R666,F679:R679,F692:R692,F705:R705,F718:R718,F731:R731,F744:R744,F757:R757,F770:R770,F783:R783,F796:R796,F809:R809").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
End Sub
运行后会出现以下提示：
运行时错误'1004'
方法’range'作用于对象’Globle’时失败


请大神指点以上录制的宏为什么不行？问题出在哪里？如何解决。

coby001

Sub 锁定原始表指标合计行()
dim sAddr$,rng$
sAddr="F16:R16,F29:R29,F42:R42,F55:R55,F68:R68,F81:R81,F94:R94,F107:R107,F120:R120,F133:R133,F146:R146,F159:R159,F172:R172,F185:R185,F198:R198,F211:R211,F224:R224,F237:R237,F250:R250,F263:R263,F276:R276,F289:R289,F302:R302,F315:R315,F328:R328,F341:R341,F354:R354,F367:R367,F380:R380,F393:R393,F406:R406,F419:R419,F432:R432,F445:R445,F458:R458,F471:R471,F484:R484,F497:R497,F510:R510,F523:R523,F536:R536,F549:R549,F562:R562,F575:R575,F588:R588,F601:R601,F614:R614,F627:R627,F640:R640,F653:R653,F666:R666,F679:R679,F692:R692,F705:R705,F718:R718,F731:R731,F744:R744,F757:R757,F770:R770,F783:R783,F796:R796,F809:R809"
for each rng in split(sAddr, ",")
with Range( rng)   
.Locked = True
    .FormulaHidden = False
end with
next
End Sub

shenghua8

既然有规律，那就循环吧。

1. Sub 锁定原始表指标合计行()
   
2.     Dim i As Integer
   
3.     For i = 16 To 809 Step 13
   
4.         Range("F" & i & ":R" & i).Select
   
5.         Selection.Locked = True
   
6.         Selection.FormulaHidden = False
   
7.     Next
   
8. End Sub
   

复制代码

coby001

楼主真蛋藤~~
Sub 锁定原始表指标合计行()
dim rng as range
set rng=Range("F16:R16")
do while rng.row<=809
with   rng
    .Locked = True
    .FormulaHidden = False
    set rng= .offset(13)
end with
loop
End Sub