Chuyen vung du lieu sang text

sub chuyentext()

With Sheet6

Sheet6.Range("A4:BC5").Select     ' lua chon 1 trong 3 tieu thuc

Selection.NumberFormat = "@"   'dinh dang text

Selection.NumberFormat = "General"

Selection.NumberFormat = "0.00"

end sub