Import hyperlinks

Description

Imports hyperlinks between different worksheets in the spreadsheet.

(function () {
  var oWorksheetA = Api.GetSheet("Sheet1");
  var oWorksheetB = Api.GetSheet("Sheet2");
  var rowIndex = 0;
  var titles = [];
  var links = [];
  while (rowIndex < 10) {
    var titleCell = oWorksheetA.GetRangeByNumber(rowIndex, 0); // Assuming title is in column A
    var linkCell = oWorksheetA.GetRangeByNumber(rowIndex, 1); // Assuming link is in column B
    var title = titleCell.GetValue();
    var link = linkCell.GetValue();
    titles.push(title); // Store titles in an array
    links.push(link); // Store links in an array
    rowIndex++; // Increment the row index for the next iteration
  }
  var rangeB = Api.GetSelection();
  rangeB.ForEach(function (cell) {
    var cellValue = cell.GetValue();
    // Check if the cell value matches any of the titles from the array
    var index = titles.indexOf(cellValue);
    if (index !== -1) {
      var title = titles[index];
      var link = links[index];
      var address = cell.GetAddress(true, true, "xlA1", false);
      // Set the hyperlink in oWorksheetB
      oWorksheetB.SetHyperlink(address, link, "Your Description", title);
    }
  });
})();

Methods used: GetSheet, GetRangeByNumber, GetValue, GetSelection, ForEach, GetAddress, SetHyperlink

Reference Microsoft VBA macro code

Sub AddHyperlinks()
    Dim wsA As Worksheet, wsB As Worksheet
    Dim titles() As String, links() As String
    Dim rng As Range, cell As Range
    Dim i As Integer

    ' Set worksheets
    Set wsA = ThisWorkbook.Sheets("Sheet1")
    Set wsB = ThisWorkbook.Sheets("Sheet2")

    ' Read first 10 titles and links from Sheet1
    ReDim titles(0 To 9)
    ReDim links(0 To 9)
    For i = 0 To 9
        titles(i) = wsA.Cells(i + 1, 1).Value ' Column A
        links(i) = wsA.Cells(i + 1, 2).Value ' Column B
    Next i

    ' Loop through the selection on Sheet1
    Set rng = Selection
    For Each cell In rng
        For i = LBound(titles) To UBound(titles)
            If cell.Value = titles(i) Then
                ' Add hyperlink to Sheet2 at same address as the selected cell
                wsB.Hyperlinks.Add Anchor:=wsB.Cells(cell.Row, cell.Column), _
                                   Address:=links(i), _
                                   TextToDisplay:=titles(i)
            End If
        Next i
    Next cell
End Sub

Result