Giúp em gỡ rối đường link khi copy từ web vào excel

[Hoangha3112]

Chào a/c
Em copy từ 1 trang web tên công ty nhưng khi vào excel nó hiện ra như thế này , có ai biết bỏ dòng link đi không ạ , chỉ ra tên công ty thôi ạ , vì em làm nhiều chứ cứ copy xong xoá dòng link đi rất mất thời gian , ai biết giúp em với ak , em cám ơn mng nhiều

 

[Hoàng Tuấn 868]

View attachment 236060
Chào a/c
Em copy từ 1 trang web tên công ty nhưng khi vào excel nó hiện ra như thế này , có ai biết bỏ dòng link đi không ạ , chỉ ra tên công ty thôi ạ , vì em làm nhiều chứ cứ copy xong xoá dòng link đi rất mất thời gian , ai biết giúp em với ak , em cám ơn mng nhiều

1/ Bạn không nên viết tắt. "ak, mng."
2/ Bạn gửi file có chục dòng lên đây mình hướng dẫn vào file cho.

 

[Hoangha3112]

1/ Bạn không nên viết tắt. "ak, mng."
2/ Bạn gửi file có chục dòng lên đây mình hướng dẫn vào file cho.

Do mình mới nên chưa biết nội quy , cho mình xin lỗi , làm như thế nào bạn nhỉ , mình vẫn chưa hiểu

 

[keyeutien]

View attachment 236060
Chào a/c
Em copy từ 1 trang web tên công ty nhưng khi vào excel nó hiện ra như thế này , có ai biết bỏ dòng link đi không ạ , chỉ ra tên công ty thôi ạ , vì em làm nhiều chứ cứ copy xong xoá dòng link đi rất mất thời gian , ai biết giúp em với ak , em cám ơn mng nhiều

Nếu làm nhiều thì theo mình cứ copy toàn bộ về rồi dùng code xử lý hoặc là dùng code lấy tự động những thông tin cần lấy

 

[Hoàng Tuấn 868]

Do mình mới nên chưa biết nội quy , cho mình xin lỗi , làm như thế nào bạn nhỉ , mình vẫn chưa hiểu

Bạn gửi file có các link đã tải về mà cần tách tên công ty lên đây bạn à

 

[PacificPR]

Cái này mà dùng VBA lấy tên công ty ra tiếng việt thì không biết lấy kiểu gì nhỉ
Còn xoá Hyperlink thì Chủ Topic tham khảo thử Code này xem

Sub RemoveAllHyperlink()
    Dim sRng As Range
On Error GoTo Thoat
Set sRng = Application.InputBox(Prompt:="Chon vung du lieu ", Title:="Chon vung du lieu", Type:=8)
sRng.Hyperlinks.Delete
Thoat:
End Sub