Hector에는 약 600 개의 행과 70 개의 열이 포함 된 큰 워크 시트가 있습니다. 이 43,000 개의 셀에 댓글이 달린 약 200 개의 셀이 퍼져 있습니다. Hector는 주석을 추출하여 데이터 테이블 본문의 오른쪽에있는 셀에 배치하려고합니다. 예를 들어 주석이 셀 C43에 첨부 된 경우 해당 주석의 텍스트가 CC43 셀에 들어가고 원래 주석이 삭제되기를 원합니다.

선택하여 붙여 넣기를 사용하여 작업을 수행 할 수 있다고 생각할 수 있지만 작동하지 않습니다. 원본 셀을 복사 한 다음 편집 | 선택하여 붙여 넣기 | 주석을 입력하면 주석 만 대상 셀에 붙여 넣어집니다. 그것들은 여전히 ​​주석이며 셀의 텍스트가 아니라 헥터의 목표에 위배됩니다.

이러한 유형의 추출을 처리하는 유일한 방법은 매크로를 사용하는 것입니다. 다음은 선택한 셀에서 실행될 때 주석을 추출하고 주석 텍스트를 이동 한 다음 원래 주석을 삭제합니다.

Sub CommentsToCells()

Dim rCell As Excel.Range     Dim rData As Excel.Range     Dim sComment As String

' Horizontal displacement     Const iColOffset As Integer = 78

' extract comments from selected range     If TypeName(Selection) = "Range" Then         Set rData = Intersect(Selection, ActiveSheet.UsedRange)

For Each rCell In rData.Cells             On Error Resume Next             sComment = rCell.Comment.Text             If Len(sComment) > 0 Then                 rCell.Offset(, iColOffset).Value = sComment                 rCell.Comment.Delete             End If             sComment = ""

On Error GoTo 0         Next     End If End Sub

매크로는 iColOffset 상수를 사용하여 주석의 텍스트를 오른쪽으로 이동해야하는 셀 수를 지정합니다. 이 경우 오프셋 (78)은 3 개의 “알파벳”(26 * 3)과 같으므로 원래 C 열에있는 주석의 텍스트는 CC 열에있게됩니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2981)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excelribbon-Copying_Comments_to_Cells [Copying Comments to Cells].