Hur passar jag automatiskt kolumnbredd i Excel?
I Excel kan du justera kolumnbredden så att den passar cellinnehållet snabbt med hjälp av Autopassa kolumnbredd funktion. Ibland skulle du vilja att kolumnbredden automatiskt uppdateras baserat på den längsta texten i den kolumnen, det vill säga när du matar in någon lång textsträng i cellen, ändras kolumnbredden automatiskt så att den passar innehållets längd. Är det möjligt att hantera det i Excel?
Anpassa kolumner automatiskt med VBA-kod
Anpassa kolumner automatiskt med snabbtangenter
Anpassa kolumner automatiskt med VBA-kod
Det verkar göra kolumnbredden automatiskt uppdaterad med cellinnehållets längd är ett intressant trick, du kan använda följande VBA-kod för att avsluta den.
1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.
2. Dubbelklicka sedan Denna arbetsbok i VBA-projekt objekt i den vänstra rutan för att öppna en tom modul och sedan kopiera och klistra in följande VBA-kod i modulen:
VBA-kod: automatisk passningskolumn med i arbetsboken
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub
3. Spara och stäng sedan den här koden, och nu när du anger lång text i en cell kommer kolumnbredden att justeras så att den passar innehållet automatiskt.
Anpassa kolumner automatiskt med snabbtangenter
Om du har flera kolumner där en del av cellinnehållet är dolt som följande skärmdump visas, vill du ändra storlek på kolumnbredden på en gång för att passa deras innehåll. Följande genvägar kan hjälpa dig.
1. Välj det dataområde som du vill ändra storlek på kolumnbredden.
2. Håll ner andra och tryck på H + O + I, och nu har dina kolumnbredder automatiskt anpassats till deras innehåll omedelbart. Se skärmdump:
Notera: Om du använder Excel 2003 och tidigare versioner måste du använda dessa kortkommandon: ALT + O + C + A..
Relaterade artiklar:
Hur passar jag automatiskt radhöjd för sammanslagna celler i Excel?
Hur ändrar jag storlek på radhöjd eller kolumnbredd för att passa text i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!