刘艳超:
PRivateSUb更新目录_click()application.sCReenupdating=falsedimshtasworksheetdimrasinteger[a2:b65536].clearcontentsForeachshtinthiSWorkbook.sheetsifsht.nameme.namethenr=[a65536].end(xlup).rowrange("a"&r+1).value=sht.nameme.hyperlinks.addrange("a"&r+1),"#"&....