VBA를 사용하여 Excel에서 주석의 빈 행을 삭제하십시오.

Question

VBA를 사용하여 주석에서 빈 행을 삭제하는 방법을 찾고 있습니다. 빈 행을 포함하는 손상된 주석이있는 Excel 파일이 하나씩 있습니다. 옵션이 하나씩 있습니다.

코멘트에서 행을 편집하는 명령을 식별하지 못했고 어디서부터 시작해야할지 모르기 때문에 여러분에게 보여 줄 코드가 없습니다. 하지만 내 생각 엔 :

For Each comment In ActiveSheet.Comments 
    "REMOVE EMPTY ROWS" <-- What to put here? 
Next comment 

어쨌든 나를 도울 수 있기를 바랍니다.

편집 :

Answer 1

답변을 찾았습니다. 빈 행이 아닌 것 같습니다. 어떻게 든 변경된 메모의 크기 일뿐입니다. 그래서이 코드는 다음과 같이 수정했습니다 :

Sub Comments_AutoSize() 

Dim MyComments As Comment 
Dim lArea As Long 
For Each MyComments In ActiveSheet.Comments 
    With MyComments 
    .Shape.TextFrame.AutoSize = True 
    If .Shape.Width > 300 Then 
     lArea = .Shape.Width * .Shape.Height 
     .Shape.Width = 200 
     .Shape.Height = (lArea/200) * 1.1 
    End If 
    End With 
Next 
End Sub 

Answer 2

이

당신이

을 시도 할 수처럼 댓글이 보이는 가정 : 내 모든 빈 줄은 다음과 같이 주석의 끝 부분에 있습니다

Sub RemoveEmptyLinesInComments() 

    Dim c As Comment 
    For Each c In ActiveSheet.Comments 
     c.Text Text:=Replace(c.Text, vbLf, Chr(32)) 
    Next c 

End Sub 

당신이 당신의 질문을 편집하고 필자는 솔루션으로 다른 코드와 함께 올 제공된 세부 의미를 변경 한 후210

는

확인

업데이트를 달성했다. 시도해보십시오.

Sub RemoveEmptiesFromComments() 

    Dim c As Comment 
    For Each c In ActiveSheet.Comments 
     Dim v As Variant 
     v = Split(c.Text, Chr(32)) 
     Dim i As Long, s As String 
     For i = LBound(v) To UBound(v) - 1 
      s = s & Chr(32) & v(i) 
     Next i 
     Dim rng As Range 
     Set rng = c.Parent 
     c.Delete 
     rng.AddComment Text:=s 
     rng.Comment.Shape.TextFrame.AutoSize = True 
    Next c 

End Sub