Function :Trích xuất nội dung comment sang cột khác

 

Function getComment(xCell As Range) As String

'UpdatebyExtendoffice20180330

On Error Resume Next

getComment = xCell.Comment.Text

End Function