Cum se schimbă înălțimea rândului / lățimea coloanei alternate în Excel?
Presupunând că aveți o foaie de lucru mare, care are mai multe coloane sau rânduri, trebuie să le reglați alternativ lățimea sau înălțimea, puteți schimba manual înălțimea rândului sau lățimea coloanei manual, dacă există câteva coloane sau rânduri. Dar, cum ați putea modifica înălțimea mai multor rânduri sau lățimea coloanei simultan în Excel?
Schimbați fiecare înălțime a rândului cu funcția Filtru
Schimbați fiecare înălțime a rândului / lățimea coloanei cu codul VBA
Schimbați fiecare înălțime a rândului / lățimea coloanei cu Kutools pentru Excel
Schimbați fiecare înălțime a rândului cu funcția Filtru
Prin utilizarea funcției Filtru funcție, trebuie mai întâi să creați o coloană de ajutor și apoi să aplicați caracteristica Filtrare pentru a filtra rândurile de care aveți nevoie și să reglați simultan toată înălțimea rândului filtrat. Vă rugăm să faceți acest lucru:
1. Pe lângă datele dvs., într-o celulă goală, vă rugăm să introduceți numărul 0 și 1 separat în primul și al doilea rând, apoi selectați-le și trageți mânerul de umplere până la celulele de interval pe care doriți să le reglați înălțimea rândului și bifați Copiați celulele formați mânerul de umplere și veți obține rezultatul după cum urmează:
2. Apoi selectați coloana de ajutor și faceți clic Date > Filtru, apoi apasa butonul și selectați 0 sau 1 din lista derulantă, acest exemplu, voi selecta 0, a se vedea captura de ecran:
3. Clic OK, toate rândurile care conțin numărul 0 au fost filtrate. Și apoi selectați aceste rânduri filtrate și faceți clic pe Inițial > Format > Înălțimea rândului, vezi captura de ecran:
4. În Înălțimea rândului caseta de dialog, vă rugăm să introduceți înălțimea rândului dorită, vedeți captura de ecran:
5. Apoi apasa OK pentru a închide această casetă de dialog și înălțimea filtrului selectat au fost ajustate. În cele din urmă, faceți clic pe Date > Filtru pentru a anula funcția de filtrare, iar înălțimea rândului dvs. a fost modificată alternativ. Vedeți captura de ecran:
note:
1. Puteți modifica înălțimea rândului începe alternativ de la primul rând.
2. Această metodă nu se aplică pentru a modifica lățimea coloanei.
3. După terminarea procedurii, puteți șterge coloana de asistență după cum aveți nevoie.
Schimbați fiecare înălțime a rândului / lățimea coloanei cu codul VBA
Dacă trebuie să modificați atât înălțimea rândului, cât și lățimea coloanei, următorul cod VBA vă poate face o favoare.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.
2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.
Cod VBA: schimbați fiecare înălțime a rândului dintr-o foaie de lucru
Sub RowHeight()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Row height", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Rows.Count Step 2
WorkRng.Rows(i).RowHeight = xInput
Next
End Sub
3. Apoi apăsați F5 tasta pentru a executa acest cod și va apărea o casetă de prompt pentru a vă reaminti să selectați intervalul pe care doriți să-l reglați înălțimea rândului, a se vedea captura de ecran:
4. Apoi faceți clic pe OK, va apărea o altă casetă de prompt pentru a vă permite să introduceți înălțimea rândului de care aveți nevoie, consultați captura de ecran:
5. Apoi faceți clic pe OK, înălțimea rândului selectat a fost modificată alternativ față de primul rând. Vedeți captura de ecran:
note:
1. Dacă doriți să reglați fiecare lățime a coloanei, aplicați următorul cod VBA:
Cod VBA: modificați fiecare lățime a coloanei dintr-o foaie de lucru
Sub CloumnWidth()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Cloumn width", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Columns.Count Step 2
WorkRng.Columns(i).ColumnWidth = xInput
Next
End Sub
2. Dacă doriți să modificați înălțimea rândului sau lățimea coloanei începe de la al doilea rând / coloană, trebuie doar să selectați intervalul de date din al doilea rând / coloană.
Schimbați fiecare înălțime a rândului / lățimea coloanei cu Kutools pentru Excel
Dacă ați instalat Kutools pentru Excel, ict Selectați Interval Rows & Coloane utilitarul vă poate ajuta, de asemenea, să selectați mai întâi fiecare rând sau coloană, apoi să schimbați în același timp înălțimea rândului și lățimea coloanei.
Kutools pentru Excel include mai mult de 300 de instrumente Excel la îndemână. Încercare gratuită fără limitări în 30 de zile.Ia-l acum.
1. Selectați intervalul de date pe care doriți să îl utilizați.
2. Accesați clic Kutools > Selectați Instrumente > Selectați Interval Rows & Coloane, vezi captura de ecran:
3. În Selectați Interval Rows & Coloane casetă de dialog, bifați Rânduri or Coloane de la Selectați după cum doriți, apoi din secțiunea Opțiuni, introduceți Interval de și Coloane or Rânduri număr în ele, în acest exemplu, voi alege coloane, a se vedea captura de ecran:
4. Apoi apasa OK, toate celelalte coloane au fost selectate în secțiune, consultați captura de ecran:
5. Apoi faceți clic pe Inițial > Format > Lățimea coloaneiși introduceți numărul de lățimi de coloană care vă place în Lățimea coloanei casetă de dialog, consultați capturi de ecran:
6. Apoi apasa OK, iar lățimea coloanei a fost modificată alternativ față de prima coloană.
note:
1. Pentru a selecta fiecare rând, verificați Rânduri in Selectați Interval Rows & Coloane dialog la pasul 3.
2. Dacă doriți să modificați înălțimea rândului sau lățimea coloanei începe de la al doilea rând / coloană, trebuie doar să selectați intervalul de date din al doilea rând / coloană.
Legate de articole:
Cum să umbreți fiecare rând sau altele în Excel?
Cum să ștergeți rapid toate celelalte rânduri din Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!