Sub Macro1()
'
'
    Range("A1:B1").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").EntireColumn.AutoFit
    Columns("I:I").EntireColumn.AutoFit
    Columns("J:J").EntireColumn.AutoFit
For i = 3 To 2502
    Range("B" & i).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "http://item.jd.com/" & Range("A" & i).Value & ".html", TextToDisplay:= _
        Range("B" & i).Value
    Selection.Font.Underline = xlUnderlineStyleNone
    Selection.Font.Color = vbBlue ' Range("A" & i).Font.Color
Next
    Rows("3:3").Select
    ActiveWindow.FreezePanes = True
End Sub
