Làm sao để lấy tất cả comment trong excel ra ô bên cạnh?

[luan170888]

Xin hỏi các cao thủ đại nội, ngoại 1 vấn đề như sau:

Làm sao để lấy tất cả comment trong excel ra ô bên cạnh? mà không phải click vào từng ô comment Shift +F2 + copy +paste.
Hiện tại trong bảng excel này có rất nhiều dòng có comment, khoản 4000 dòng.

Cảm ơn rất nhiều ạ

 

[nguyenthuy13388]

Xin hỏi các cao thủ đại nội, ngoại 1 vấn đề như sau:

Làm sao để lấy tất cả comment trong excel ra ô bên cạnh? mà không phải click vào từng ô comment Shift +F2 + copy +paste.
Hiện tại trong bảng excel này có rất nhiều dòng có comment, khoản 4000 dòng.

Cảm ơn rất nhiều ạ

Không biết đúng ý bạn không?

Sub Lay_comment()
Dim i As Long, Lr As Long

With Sheet1
    Lr = .Range("B10000").End(xlUp).Row
    For i = 3 To Lr
        On Error Resume Next
        .Range("C" & i).Value = .Range("B" & i).Comment.Text
    Next i
End With

End Sub

 

[1convit789]

Xin hỏi các cao thủ đại nội, ngoại 1 vấn đề như sau:

Làm sao để lấy tất cả comment trong excel ra ô bên cạnh? mà không phải click vào từng ô comment Shift +F2 + copy +paste.
Hiện tại trong bảng excel này có rất nhiều dòng có comment, khoản 4000 dòng.

Cảm ơn rất nhiều ạ

Bạn tạo 1 công thức như này nha
với a : là ô có chứa comment

 

[luan170888]

CẢM ƠN BẠN RẤT RẤT NHIỀU, VÌ CÁI NÀY MÀ MÌNH ĐÃ LÀM ĐÚNG Y 3 NGÀY LIÊN TIẾP.