[Giúp đỡ] Hiện link Hyperlink hàng loạt

[lookluck]

Em chào các bác. Hiện em đang có 1 file dữ liệu gồm rất nhiều Hyperlink có hiện text, giờ em muốn hiện tất cả link, không hiện text nữa. Mong các bác giúp đỡ

 

[Maika8008]

Em chào các bác. Hiện em đang có 1 file dữ liệu gồm rất nhiều Hyperlink có hiện text, giờ em muốn hiện tất cả link, không hiện text nữa. Mong các bác giúp đỡ

Với file của bạn, dùng code sau:
Sub GetHyperlink()
Dim arr
Dim i As Long

arr = Range("B2:B" & Range("C65536").End(xlUp).Row).Value
For i = 1 To UBound(arr)
arr(i, 1) = Range("C" & i + 1).Hyperlinks(1).Address
Next
Range("D2").Resize(UBound(arr), 1).Value = arr
End Sub

 

[lookluck]

Với file của bạn, dùng code sau:
Sub GetHyperlink()
Dim arr
Dim i As Long

arr = Range("B2:B" & Range("C65536").End(xlUp).Row).Value
For i = 1 To UBound(arr)
arr(i, 1) = Range("C" & i + 1).Hyperlinks(1).Address
Next
Range("D2").Resize(UBound(arr), 1).Value = arr
End Sub

Em cảm ớn bác, Code này dùng rất tốt ạ. Bác có thể giúp e lần nữa, giờ e muốn có thêm 1 cột E nữa, để hiện link hyperlink dạng Link Download giống cột C được không. Em làm Link rút gọn

 

[Maika8008]

Em cảm ớn bác, Code này dùng rất tốt ạ. Bác có thể giúp e lần nữa, giờ e muốn có thêm 1 cột E nữa, để hiện link hyperlink dạng Link Download giống cột C được không. Em làm Link rút gọn

Bạn muốn thế này à?

 

[lookluck]

Bạn muốn thế này à?

Dạ em cảm ơn bác nhiều nhé, Đã chạy kết quả như em mong muốn rồi ạ. Không có bác em làm thủ công không biết bao giờ mới xong.