Kako pretvoriti komentarje v vsebino celic v Excelu?

Recimo, da imam celice obsega napolnjene s komentarji na delovnem listu, zdaj pa želim vse komentarje pretvoriti v vsebino celic, da jih lahko lepo in okroglo natisnem. Ali obstajajo dobri načini za rešitev te naloge?

Pretvorite komentarje v vsebino celice s funkcijo User Defined

Komentarje pretvorite v vsebino celice s kodo VBA

Pretvorite komentarje v vsebino celic s programom Kutools for Excel

Pretvorite komentarje v vsebino celice s funkcijo User Defined

Z uporabo te metode morate najprej ustvariti določeno funkcijo in nato uporabiti definirano formulo za pretvorbo komentarjev v vsebino celice. Dokončate ga lahko v naslednjih korakih:

1.Kliknite Razvojni > Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi > Moduliin v modul vnesite naslednjo funkcijo:

Function GetComments(pRng As Range) As String
'Updateby20140509
If Not pRng.Comment Is Nothing Then
    GetComments = pRng.Comment.Text
End If
End Function

2.Pritisnite Ctrl + S , da shranite funkcijo.

3.Nato vnesite naslednjo formulo “= GetComments (A1)”V kateri koli prazni celici bom v tem primeru uporabil celico E1. Oglejte si posnetek zaslona:

4. Pritisnite Vnesite tipko. In izberite celico E1, nato povlecite ročico za polnjenje čez obseg celic, za katere želite, da vsebujejo to formulo. In vsi komentarji se pretvorijo v celico. Oglejte si posnetek zaslona:

 Komentarje pretvorite v vsebino celice s kodo VBA

Če poznate kodo VBA, vam lahko naslednja kratka koda pomaga pretvoriti komentarje v vsebino celice.

1. Izberite obseg, ki ga želite pretvoriti v vsebino celice;

2. Kliknite Razvojni > Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi > Moduliin v modul vnesite naslednjo kodo:

Sub CommentToCell()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Rng.NoteText
Next
End Sub

3. Nato kliknite   za zagon kode. In izberite obseg, ki ga želite pretvoriti, nato kliknite OK, vsi izbrani komentarji pa so pretvorjeni v vsebino celic v ustreznih celicah.

Opombe: Če komentarjev ne želite, jih lahko izbrišete.

Pretvorite komentarje v vsebino celic s programom Kutools for Excel

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh.Get it now .

O Pretvori komentar in celico of Kutools za Excel je priročno in uporabno orodje, ki vam lahko pomaga pri reševanju številnih težav s komentarji.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Izberite obseg, za katerega želite uvoziti komentarje v celice.

2. Kliknite Kutools > Več > Pretvori komentar in celico.

3. v Pretvori komentar in celico pogovorno okno, izberite Pretvorite komentarje v vsebino celic. Oglejte si posnetek zaslona:

4. Nato kliknite OK. Zdaj se vsi izbrani komentarji pretvorijo v vsebino celic v prvotnem obsegu.

Za podrobnejše informacije o Pretvori komentar in celico, Obiščite Pretvori opis funkcije komentarja in celice.

Sorodni članki:

• Spremenite vse oblike komentarjev v celicah
• Spremeni ime avtorja vseh komentarjev
• Vse komentarje navedite na novem delovnem listu ali delovnem zvezku
• Poiščite in zamenjajte besedilo v komentarjih
• Prikaži ali skrije vse komentarje in kazalnike komentarjev v Excelu
• Vsebino celic pretvorite v komentarje v Excelu