批量修改超链接，单元格设置为变量修改

    '用变量选中单元格

    Dim i, j, m, row_count

    'count = ActiveSheet.UsedRange.Rows.count

    row_count = Sheet1.Range("C65535").End(xlUp).Row

    'MsgBox (count)

    'For i = 16 To row_count

    For i = 16 To 31

        j = i - 15

        m = j Mod 17

        Range("E" & i).Select

        Sheet1.Hyperlinks.Add Anchor:=Selection, Address:= _

                "业务文档\产品手册——ATM.docx", SubAddress:=Sheet2.Cells(m + 6, 3).Value, TextToDisplay:=Sheet2.Cells(m + 6, 3).Value

        '用格式刷保证格式一致

        Range("E15").Select

        Selection.Copy

        Range("E" & i).Select

        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

            SkipBlanks:=False, Transpose:=False

        Application.CutCopyMode = False

        '给选中的单元格添加下划线

        Selection.Font.Underline = xlUnderlineStyleSingle

    Next

设置字体为红色

Range("E206").Select

    With Selection.Font

        .Color = -16776961

        .TintAndShade = 0

    End With