⑴ 鍏充簬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