⑴ 鍏充簬VBA閲岀殑FOR TO 鍑芥暟
for to 鏄寰鐜璇鍙ャ傚傦细for i=m to n 琛ㄧずi 浠巑鍒皀闂村惊鐜銆
do while 锛堟浔浠讹级 loop 涔熸槸寰鐜璇鍙ャ傝〃绀烘浔浠朵负锅囨椂寰鐜锅沧銆
Do While Cells(1, i) <> "" '
i = i + 1
Loop 寰楀埌浣跨敤鍒楁暟
Do While Cells(j, 1) <> "" '
j = j + 1
Loop 寰楀埌浣跨敤琛屾暟
Cells(m, n)琛ㄧずm琛宯鍒楀崟鍏冩牸銆傜敤m鍜宯寰鐜鏁翠釜涓崭负绌虹殑鍗曞厓镙笺
姝ょ▼搴忓湪浣跨敤鍗曞厓镙艰缉澶氭椂浼氩緢鎱锛屽叾瀹炶佽揪鍒板叾锷熻兘寰堢亩鍗曘
Sub aa() '阃変腑鏁翠釜宸ヤ綔琛锛岃繍琛
Selection.Hyperlinks.Delete
End Sub