#include <Excel.au3>
#include <Array.au3>
Local $oExcel = _Excel_Open(False)
If @error Then Exit 1
Global $iUb, $aArray[1][4], $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & '\Перечень.xlsx')
If @error Then Exit _Excel_Close($oExcel)
For $oElement In $oWorkbook.Activesheet.Hyperlinks ; https://docs.microsoft.com/en-us/office/vba/api/excel.hyperlinks
$iUb += 1
ReDim $aArray[$iUb + 1][4]
$aArray[$iUb][0] = StringReplace($oElement.Range.Address, '$', '') ; https://docs.microsoft.com/en-us/office/vba/api/excel.range.address
$aArray[$iUb][1] = $oElement.Name ; https://docs.microsoft.com/en-us/office/vba/api/excel.hyperlink.name
$aArray[$iUb][2] = $oElement.Address ; https://docs.microsoft.com/en-us/office/vba/api/excel.hyperlink.address
$aArray[$iUb][3] = $oElement.Range.Row ; https://docs.microsoft.com/en-us/office/vba/api/excel.range.row
Next
$aArray[0][0] = $iUb
_Excel_BookClose($oWorkbook, False)
_Excel_Close($oExcel, False)
_ArrayDisplay($aArray) ; •••••••••• П Р О В Е Р К А ••••••••••
_ArraySort($aArray, 0, 1, 0, 3) ; Сортируем по 4 столбцу
_ArrayDisplay($aArray) ; •••••••••• П Р О В Е Р К А ••••••••••