
我需要將單元格中的文字內容轉換為其他單元格(左側的單元格)中的註釋。我看見這個帖子,程式碼工作正常,但它將註釋放在文字內容所在的同一單元格中。
範例:我需要 B 列中的文字作為 A 列的註解。
答案1
選擇包含資料的儲存格(在您的情況下,B 列中的儲存格)
並運行這個簡短的巨集:
Sub CommentMaker()
Dim r As Range, v As String
For Each r In Selection
If r.Column <> 1 Then
If r.Text <> "" Then
v = r.Text
With r.Offset(0, -1)
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=v
End With
End If
End If
Next r
End Sub
筆記: 這不會刪除原始資料!