Макрос для создания гиперссылки

Question

Ниже приведен мой набор данных в excel

COLUMN E    COLUMN K  COLUMN L  COLUMN M  COLUMN N
A3000        A3000
A3100        A3100    A3500
A3200        A3500               A3400
A3400        A3200                        A3500
A3500                            A3400    A3500

Я пытаюсь создать макрос, который будет создавать гиперссылки в ячейках в столбцах K - N, которые будут ссылаться на ячейки в столбце E в соответствии с их значением.

Answer 1

Хотя я согласен с комментариями Плутяна и Зака ​​E выше, мне понравилось быстрое упражнение. Я довольно плохо знаком с VBA, поэтому небольшие упражнения - полезные инструменты для обучения. Вот макрос, который я собрал, который, кажется, делает то, что вы ищете:

Sub HyperlinkMacro()
    Dim cell, LinkRange, TargetRange As Range

    Set LinkRange = ActiveSheet.Range("K1:N5")
    Set TargetRange = ActiveSheet.Range("E1:E5")

    For Each cell In LinkRange
        If Len(cell.Value) > 0 Then
            ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:=Range("E1:E5").Find(cell.Value).Address, TextToDisplay:=cell.Value
        End If
    Next

End Sub