Làm thế nào cho cái macro này gọn hơn một tý không ạSub in_dam() Range("Q10")Characters(Start=102

Chào bạn  bạn đang làm gì với code này nhỉ?

Chào bạn bạn có thể đẩy file lên giúp gitiho không nhỉ?

file đây a... https://drive.google.com/file/d/1NzM1..." target="_blank">

https://drive.google.com/file/d/1NzM1... 

Chào bạn sẽ không có cách nào thu được đoạn code đó ngắn hơn bạn nhé, do bắt theo vị trí nên không có cách nào bạn ạ

Hoặc bạn rút ngắn code như sau 

Sub In_Dam()
    Range("B5").Value = "Gi" & ChrW(7845) & "y ch" & ChrW(7913) & "ng nh" & ChrW(7853) & "n quy" & ChrW(7873) & "n s" & ChrW(7917) & " d" & ChrW(7909) & "ng " & ChrW(273) & ChrW(7845) & "t, quy" _
    & ChrW(7873) & "n s" & ChrW(7903) & " h" & ChrW(7919) & "u nhà " & ChrW(7903) & " và tài s" & ChrW(7843) & "n khác g" & ChrW(7855) & "n li" & ChrW(7873) & "n v" & ChrW(7899) & "i " & ChrW(273) & _
    ChrW(7845) & "t: s" & ChrW(7889) & " phát hành " _
    & Range("B3").Value & ", s" & ChrW(7889) & " vào s" & ChrW(7893) & ": " & Range("C3").Value _
    & " do " & Range("d3").Value & " c" & ChrW(7845) & "p ngày " _
    & Range("e3").Value
    a = boiden(Range("B5"), 102, 9) & boiden(Range("B5"), 123, 9) & boiden(Range("B5"), 136, 30)
End Sub
Function boiden(rng As Range, vitri As Integer, dodai As Integer)
  rng.Characters(Start:=vitri, Length:=dodai).Font.FontStyle = "Bold"
End Function