Nhờ các Thầy, các bạn giúp rút gọn đoạn code sau. Xin cám ơn nhiều

[nqt61]

Range("D6").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("b6").Text, _
ScreenTip:="QLVB-NQT", TextToDisplay:=Range("b6").Text
Range("D7").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("b7").Text, _
ScreenTip:="QLVB-NQT", TextToDisplay:=Range("b7").Text
Range("D8").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("b8").Text, _
ScreenTip:="QLVB-NQT", TextToDisplay:=Range("b8").Text


Range("D9").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("b9").Text, _
ScreenTip:="QLVB-NQT", TextToDisplay:=Range("b9").Text

 

[huuthang_bd]

Range("D6").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("b6").Text, _
ScreenTip:="QLVB-NQT", TextToDisplay:=Range("b6").Text
Range("D7").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("b7").Text, _
ScreenTip:="QLVB-NQT", TextToDisplay:=Range("b7").Text
Range("D8").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("b8").Text, _
ScreenTip:="QLVB-NQT", TextToDisplay:=Range("b8").Text


Range("D9").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Range("b9").Text, _
ScreenTip:="QLVB-NQT", TextToDisplay:=Range("b9").Text

Bạn sửa lại như thế này thử xem:

For i = 6 To 9
    ActiveSheet.Hyperlinks.Add Cells(i, 4), Cells(i, 2).Text, , "QLVB-NQT", Cells(i, 2).Text
Next