Kopiering Kommentarer til Cells

October 18  by Eliza

Hector har en stor arket inneholdende ca. 600 rader og 70 kolonner. Spredt over disse 43.000 celler er ca 200 celler med kommentarer. Hector ønsker å trekke ut kommentarene og plassere dem i celler til høyre for hoveddelen i datatabellen. Hvis en kommentar, for eksempel, er festet til celle C43, så han vil gjerne teksten fra at kommentaren til å ende opp i celle CC43 og den opprinnelige kommentaren som skal slettes.

Du tenker kanskje at du kan bruke Lim inn utvalg for å utføre oppgaven, men som ikke fungerer. Hvis du kopierer de opprinnelige cellene og deretter bruke Rediger | Lim inn | Kommentarer, så bare kommentarene limes til målet celler. De er fortsatt kommentarer, og ikke tekst i celler, som går mot Hector mål.

Den eneste måten å håndtere denne type utvinning er å bruke en makro. Følgende, når det kjøres på et utvalg av celler, vil trekke ut kommentarer, flytte kommentarteksten, og deretter slette den opprinnelige kommentar.

Sub CommentsToCells ()
Dim Rceii Som Excel.Range
Dim rData Som Excel.Range
Dim sComment As String

'Horisontal forskyvning
Const iColOffset As Integer = 78

'Trekke kommentarer fra valgt område
Hvis Typename (Utvalg) = "Range" Da
Satt rData = Skjæring (Selection, ActiveSheet.UsedRange)
For Hver Rceii I rData.Cells
On Error Resume Next
sComment = rCell.Comment.Text
Hvis Len (sComment)> 0 Then
rCell.Offset (, iColOffset) .Value = sComment
rCell.Comment.Delete
End If
sComment = ""
On Error GoTo 0
Neste
End If
End Sub

Makroen bruker iColOffset konstant for å angi hvor mange celler til høyre en kommentar tekst bør flyttes. I dette tilfelle forskyvningen (78) er lik tre «alfabet» (26 * 3), slik at teksten i en kommentar opprinnelig i kolonne C vil ende opp i kolonnen CC.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2981) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Kopiere Kommentarer til Cells.