MS Excel

Ten pomocny stlpec D nepotrebujete, data z neho mozete kludne vymazat. Oznacte si bunky v stlpci C (opat - iba pouzitu oblast, nie cely stlpec, aby to nebezalo dlho) a spustite makro.

Sub Vloz_komentar()
Dim cell As Range
Application.ScreenUpdating = False
For Each cell In Selection.Cells
With cell
' vysledok spracovany do stlpca o 2 pozicie napravo od vybraneho
If Not .Comment Is Nothing Then
.Offset(0, 2) = .Value & Chr(10) & .Comment.Text
.Offset(0, 2).Font.Bold = False 'aby odstranil pripadne povodne vytucnenie celej bunky
.Offset(0, 2).Characters(Length:=Len(.Value)).Font.Bold = True
End If
End With
Next cell
Selection.EntireRow.AutoFit
Application.ScreenUpdating = True
End Subpokial by ste nechcela prist v tom novom stlpci o hodnoty z buniek zo stlpca C, v ktorych nie je komentar, tak pred end if v uvedenom kode si este doplnte
Else
.Offset(0, 2) = .Value
.Offset(0, 2).Font.Bold = Truecitovat

jasné, s offset si môžete hrať, ja som Vám do toho nechcel zasahovať, neviem, či tie stĺpce nemáte naviazané na niečo ďalšie
rád som pomohol, pekný deň a hodne úspechov pri štúdiu VBA prajemcitovat