[엑셀] 셀에 입력된 메모를 우측 셀에 펼쳐서 입력 > information

'********************************************************************************
' 셀에 입력된 메모를 우측 셀에 출력
'********************************************************************************
Sub CabCommentRng()
	Dim rngDb As Range
	Dim rng As Range

	Application.ScreenUpdating = False

	Set rngDb = Cells.SpecialCells(xlCellTypeComments)
	For Each rng In rngDb
		rng.Offset(, 1).Value = rng.Comment.Text
	Next rng

	Set rngDb = Nothing
	Application.ScreenUpdating = True
End Sub