
테이블에 해당 열의 (거의) 각 셀에 주석(빨간색 삼각형)이 있는 열이 하나 있습니다. 모든 주석을 새 열로 이동하고 싶습니다.
내가 가지고 있는 것의 예:
Col.1
MIT(의견: MA)
Harvard(의견: MA)
Yale(의견: CT)
NYU(의견 없음)
내가 갖고 싶은 것:
Col.1, Col.2
MIT, MA
Harvard, MA
Yale, CT
NYU, ?
답변1
나는 이것이 VBA에서만 가능하다고 믿습니다. ff를 사용해보십시오. 사용자 정의 함수:
Public Function GetComment(c As Range) As String
If c.Comment Is Nothing Then
GetComment = "?"
Else
GetComment = Replace(c.Comment.Text, c.Comment.Author & ":", "")
End If
End Function
UDF를 생성하려면:
- CTRL+를 누릅니다 F11.
- 위의 코드를 붙여넣으세요.
- VBA 편집기를 닫습니다.
참고:
댓글 작성자의 이름도 표시하려면 다섯 번째 줄을 다음으로 바꾸세요.
GetComment = c.Comment.Text
기능을 사용하려면, ff를 입력하세요. 주석을 추가하려는 열의 셀에 복사한 다음 아래로 복사하세요.
=GetComment(B1)
어디에:
B1
얻고 싶은 댓글이 포함된 셀입니다.
사용 방법의 예는 다음과 같습니다.