MS Office-apparna är mycket designadeintelligent och jag säger inte detta bara för att de gör mitt arbete oändligt lättare. Jag säger det för att det är sant. För några dagar tillbaka gjorde vi ett inlägg om att infoga YouTube-videor i Office 2013 och konstaterade att alternativet var frånvarande i MS Excel helt enkelt för att det inte behövdes där. Det här är den typ av intelligens jag pratar om; veta vilka funktioner som behövs i en viss typ av app. Det ser till att inget irrelevant gör det till det slutliga erbjudandet. Som sagt blev jag förvånad över att där Excel låter dig sätta in fler rader i ett kalkylblad så låter det dig inte välja antalet rader du vill lägga till. Du har andra arbetssätt för att utföra detta som att välja antalet rader du vill lägga till från de befintliga och sedan använda insertfunktionen. Eller så kan du upprepa infogningssteget för så många rader du vill. Det är repetitivt men om du är villig att spara fem minuter kan den lilla makroen ta hand om jobbet åt dig.
Eftersom detta kräver en makro måste du göra detspara din fil som en makroaktiverad Excel-fil. För att göra det, klicka på rullgardinsmenyn "Spara som typ" i fönstret Spara som och välj 'Excel Marco Enabled Workbook (* xlsm).
Därefter är det dags att skriva makro. Gå till fliken Visa och klicka på Makron för att skapa en ny. Namnge vad du vill och klicka på "Skapa". Följande fönster öppnas automatiskt.
Vad som är relevant här är 'Sub' och 'End Sub'rader. Underradet kommer att innehålla namnet på ditt makro medan End Sub markerar slutet på kommandon i den makroen. Eftersom du just skapade det, bör det inte finnas något mellan dessa rader som i skärmdumpen ovan. Klistra in följande mellan dessa två rader.
Dim CurrentSheet As Object
" Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
" Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Denna kod kommer att infoga fem rader från toppen. Det hänvisas till i koden A1: A5. För att redigera det så att det passar dina behov måste du redigera det här intervallet. Det första värdet fungerar som en referens till var raderna kommer att infogas. Om du ändrar det till A100, kommer raderna att infogas efter de första nittionio raderna. När du har ställt in referenspunkten måste du ange antalet rader.
Radnummer definieras av cellområdet A1: A5. Detta intervall kommer att infoga 5 rader. För att hitta rätt intervall för ditt antal rader, till exempel att du vill infoga 25 rader från A99, lägger du till 25 till referenspunkten så att det är A99 och minus en cell därifrån. Dvs. A100 + 99 - 1 = A198. Du lägger till rader och inte kolumner så att endast numret kommer att ändras och inte kolumnbokstaven. Makroen måste uppdateras varje gång du måste infoga rader förtrollande men det är bara en liten redigering och det fungerar riktigt bra så det är värt den tid som spenderas.
Makro via Microsofts support
kommentarer