Sette inn og Kopiere Rader

July 21  by Eliza

Som du redigerer regneark, kan du legge merke til at noe av arbeidet er gjort basert på arbeidet du har gjort før. For eksempel kan du ha en rad med data som du skrev i et tidligere Excel-økt. I denne økten, må du kopiere den raden av data og bruke det som grunnlag for den nye data, men med noen endringer.

I en slik situasjon, ville det være fint å ha en rask måte å legge inn en tom rad etter gjeldende rad, og kopiere dataene i gjeldende rad til ny blank rad. Det er ingen iboende kommandoer i Excel for å gjøre dette, men en makro kan gjøre det veldig enkelt og greit. Vurdere følgende eksempel:

Sub InsertCopyRow1 ()
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift: = xlDown
End Sub

For å kunne bruke makroen, er alt du trenger å gjøre er å velge en celle i en rad. Når makroen kjøres, er en kopi av gjeldende rad satt inn like under raden du er i.

Det eneste problemet med denne løsningen er at den forlater Excel grensesnittet en litt "rotete" (i mangel av et bedre ord). Når du er ferdig, er en komplett rad fortsatt er valgt, og den nye raden har "marsjerende maur" ramme rundt det.

Dette problemet kan løses ved å inkludere kommandoer for å kollapse valget og flytte den til et ønsket sted. En annen måte er å bare bruke en annen makro som er avhengig av ulike VBA kommandoer. Følgende makro vil også sette inn og kopiere en rad, men det etterlater den cellen du valgte aktive:

Sub InsertCopyRow2 ()
ActiveCell.Offset (1, 0) .EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset (1, 0) .EntireRow
End Sub

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2042) 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: Sette inn og Kopiere rader.