Comment ajuster automatiquement la hauteur de ligne des cellules fusionnées dans Excel?

Dans Excel, nous pouvons rapidement ajuster la hauteur de la ligne en fonction du contenu de la cellule en utilisant le Ajuster la hauteur de ligne fonctionnalité, mais cette fonction ignore complètement les cellules fusionnées. C'est-à-dire que vous ne pouvez pas appliquer le Ajuster la hauteur de ligne pour redimensionner la hauteur de ligne des cellules fusionnées, vous devez ajuster manuellement la hauteur de ligne des cellules fusionnées une par une. Dans cet article, je peux présenter quelques méthodes rapides pour résoudre ce problème.

Ajuster automatiquement la hauteur de ligne des cellules fusionnées avec le code VBA

Onglet Office Activez la modification et la navigation par onglets dans Office et simplifiez considérablement votre travail ...

Lire la suite... Téléchargement Gratuit...

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Trier par semaine, jour, fréquence et plus encore; Filtrez par gras, formules, commentaire ...
Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2019 et 365; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.

Lire la suite... Téléchargement Gratuit...

Ajuster automatiquement la hauteur de ligne des cellules fusionnées avec le code VBA

Incroyable! Utilisation d'onglets efficaces dans Excel comme Chrome, Firefox et Safari!

Économisez 50% de votre temps et réduisez chaque jour des milliers de clics de souris!

En supposant que j'ai une feuille de calcul avec des cellules fusionnées comme illustré ci-dessous, et que je dois maintenant redimensionner la hauteur de la ligne de cellule pour afficher tout le contenu, le code VBA ci-dessous peut vous aider à ajuster automatiquement la hauteur de ligne de plusieurs cellules fusionnées, veuillez le faire comme suit:

doc-autofit-merged-cells-1

1. Maintenez le ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: ajustement automatique de la hauteur de ligne de plusieurs cellules fusionnées

Option Explicit
Public Sub AutoFitAll()
  Call AutoFitMergedCells(Range("a1:b2"))
   Call AutoFitMergedCells(Range("c4:d6"))
    Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
  Dim tHeight As Integer
  Dim iPtr As Integer
  Dim oldWidth As Single
  Dim oldZZWidth As Single
  Dim newWidth As Single
  Dim newHeight As Single
  With Sheets("Sheet4")
    oldWidth = 0
    For iPtr = 1 To oRange.Columns.Count
      oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
    Next iPtr
    oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
    oRange.MergeCells = False
    newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
    oldZZWidth = .Range("ZZ1").ColumnWidth
    .Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
    .Range("ZZ1").WrapText = True
    .Columns("ZZ").ColumnWidth = oldWidth
    .Rows("1").EntireRow.AutoFit
    newHeight = .Rows("1").RowHeight / oRange.Rows.Count
    .Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
    oRange.MergeCells = True
    oRange.WrapText = True
    .Range("ZZ1").ClearContents
    .Range("ZZ1").ColumnWidth = oldZZWidth
  End With
End Sub

Notes:

(1.) Dans le code ci-dessus, vous pouvez ajouter de nouvelles plages simplement copier Appelez AutoFitMergedCells (Range ("a1: b2")) script plusieurs fois que vous le souhaitez et modifiez les plages de cellules fusionnées selon vos besoins.

(2.) Et vous devriez changer le nom de la feuille de calcul actuelle Sheet4 au nom de votre feuille utilisée.

3. Puis appuyez F5 clé pour exécuter ce code, et maintenant, vous pouvez voir que toutes les cellules fusionnées ont été automatiquement ajustées à leur contenu de cellule, voir capture d'écran:

doc-autofit-merged-cells-1

Article connexe:

Comment ajuster automatiquement la largeur de la colonne dans Excel?

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat...

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Téléchargement Gratuit... Achat...

<p >

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...

Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...

Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...

Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...

Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...

Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...

Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...

Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...

Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat...

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.

Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.

Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Téléchargement Gratuit... Achat...

</ p >

22 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Art · 1 years ago
Dang it, copy/paste bit me. Also, with explicit sheet references the With isn't needed:

Public Sub AutoFitMergedCells(oRange As Range, ByVal dblWidth As Double)

oRange.MergeCells = False
Sheet1.Range("A1") = oRange.Cells(1, 1).Value
Sheet1.Range("A1").WrapText = True
Sheet1.Columns(1).ColumnWidth = dblWidth
Sheet1.Rows(1).EntireRow.AutoFit
oRange.Parent.Rows(oRange.Row).Resize(oRange.Rows.Count).RowHeight _
= Sheet1.Rows(1).RowHeight / oRange.Rows.Count
oRange.MergeCells = True
oRange.WrapText = True

End Sub
- Reply
To post as a guest, your comment is unpublished.
Art · 1 years ago
Thank you, that helped me with a sheet I've not been happy with for years.

I did change things around a bit, my merged cells are all in one column so I calculated that outside the loop and passed it. I also inserted a Sheet1 that is hidden, and manipulated the columns/rows there so as to not affect the sheet I'm working on. The references should probably be more explicit:

Public Sub AutoFitMergedCells(oRange As Range, ByVal dblWidth As Double)

Dim dblHeight As Double

With oRange.Parent
oRange.MergeCells = False
Sheet1.Range("A1") = oRange.Cells(1, 1).Value
Sheet1.Range("A1").WrapText = True
Sheet1.Columns(1).ColumnWidth = dblWidth
Sheet1.Rows(1).EntireRow.AutoFit
dblHeight = Sheet1.Rows(1).RowHeight / oRange.Rows.Count
oRange.Parent.Rows(oRange.Row).Resize(oRange.Rows.Count).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
Sheet1.Range("A1").ClearContents
End With

End Sub
- Reply
To post as a guest, your comment is unpublished.
José · 2 years ago
This not work for me}
- Reply
To post as a guest, your comment is unpublished.
saravanan · 2 years ago
not working , ye password set in your code not working in your code
- Reply
To post as a guest, your comment is unpublished.
dougs · 3 years ago
I believe the reason that the row heights do not calculate properly is related to these lines of code
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth

The variable OldWidth gets set to the sum of the column widths in the range, but for some reason it gets reset to only the width of the first two columns. The first 3 lines of code are therefore made redundant by the 4th line. When I removed the line it was much better, but the other issue I found was that you have to make sure that the font and font size of the temporary cell (ZZ1 in the example code) must match the font and size of the merged cells; otherwise, text will not wrap in the same way as the merged cells wrap and may not be the correct height.
- Reply
To post as a guest, your comment is unpublished.
toowaki · 3 years ago
I made add-in for Auto fit row height of multiple merged cells.
Please use this, if you want to autofit row hight.
［Release Ver2.6 · toowaki/AutoFitRowEx · GitHub］
https://github.com/toowaki/AutoFitRowEx/releases/tag/2.6.2
- Reply
- To post as a guest, your comment is unpublished.
  ABC · 3 years ago
  
  This is pretty helpful, thanks!
  
  Reply
To post as a guest, your comment is unpublished.
Krishna · 3 years ago
I am trying to understand the necessity of Line 19. You are assigning a value again to OldWidth. Can you please explain?
- Reply
To post as a guest, your comment is unpublished.
Chris · 4 years ago
My code will not even run I just get a compile error when I try to call the AutoFitMergedCells - Expected Function or variable?
- Reply
To post as a guest, your comment is unpublished.
Aperture · 4 years ago
Because the "helper" cell of ZZ1 is using the first row (column ZZ, row 1), if there is ANYTHING in row 1 taller than the text in the row you want to adjust, your resulting height will be taller than what you want.

To fix this, I made the helper cell the same column as the first column in the oRange and set the row number to the very last row in Excel. Hope this helps you like it does me. 8)

[u]My Code:[/u]

Option Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("A2:Z2"))

End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Sheet1")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Cells("1048576", oRange.Column).ColumnWidth
.Cells("1048576", oRange.Column) = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Cells("1048576", oRange.Column).WrapText = True
.Columns(oRange.Column).ColumnWidth = oldWidth
.Rows("1048576").EntireRow.AutoFit
newHeight = .Rows("1048576").RowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Cells("1048576", oRange.Column).ClearContents
.Cells("1048576", oRange.Column).ColumnWidth = oldZZWidth
End With
End Sub
- Reply
To post as a guest, your comment is unpublished.
Retha · 4 years ago
Thank you for the code. However, the height of my rows do adjust, but now enough. How can I rectify this?
- Reply
To post as a guest, your comment is unpublished.
Jeff · 4 years ago
Thanks for posting this, I'm decent with excel and can usually figure out my adjustments but I can't seem to figure out a fix for an issue I'm having, or if one even exists. I have huge amounts of data in the cells (exceeding the single cell height limit of 409.5). The problem is this VBA runs with that same limitation. So some of my data gets cut off even though the rows are merged and the combined cell height allowance is 819, since the VBA adjusts the cell height based off the single ZZ1 cell. Is there anyway to adjust the code to get it to allow the adjusted cell height to include the available height in the merged rows or am I asking for the impossible? Thanks.
- Reply
To post as a guest, your comment is unpublished.
Vivi · 4 years ago
Works perfect, but rows are too high! Can we fix this?
- Reply
To post as a guest, your comment is unpublished.
Hana · 4 years ago
Brilliant but exactly the same problem as Danielle, rows are too high now. Please someone help!
- Reply
To post as a guest, your comment is unpublished.
Susan · 4 years ago
Thanks so much for the code. Is there any way to make the macro run as soon as you type text in a field and hit enter?
- Reply
To post as a guest, your comment is unpublished.
Viktor · 4 years ago
Thanks for the code, pretty much what I needed.

Two remarks, though:
1) when I run the macro in the same row as the "helper"cell (ZZ1), autofit (line 26) will mess up, because the whole string is fitted into one narow cell. I recommend adding

oRange.WrapText = False

in the beginning (or moving the helper cell somewhere out of the way, if possible).
2) what's the purpose of line 19? You claculate oldWidth in lines 16-18, but then override the calculation in line 19, using only two columns. When I tried the sub on a three-column-wide merged cells, it worked better when I ignored the line...

Thanks again
- Reply
To post as a guest, your comment is unpublished.
Afshin · 5 years ago
Thanks a lot for the code! I have same problem with this code such as DANIËLLE_01.
- Reply
To post as a guest, your comment is unpublished.
Daniëlle_01 · 5 years ago
Thanks a lot for the code! It finally works, but... My row height becomes too height. Is there a solution for?

Thanks a lot!

[u]This is my code:[/u]

Option Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("b162:i162"))
Call AutoFitMergedCells(Range("b166:i166"))
Call AutoFitMergedCells(Range("b168:i168"))
Call AutoFitMergedCells(Range("b170:i170"))
Call AutoFitMergedCells(Range("b172:i172"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Rapport")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Range("ZZ1").ColumnWidth
.Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Range("ZZ1").WrapText = True
.Columns("ZZ").ColumnWidth = oldWidth
.Rows("1").EntireRow.AutoFit
newHeight = .Rows("1").RowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
- Reply
- To post as a guest, your comment is unpublished.
  Aperture · 4 years ago
  
  Because the "helper" cell of ZZ1 is using the first row (column ZZ, row 1), if there is ANYTHING in row 1 taller than the text in the row you want to adjust, your resulting height will be taller than what you want.
  
  To fix this, I made the helper cell the same column as the first column in the oRange and set the row number to the very last row in Excel. Hope this helps you like it does me. 8)
  
  [u]My Code:[/u]
  
  Option Explicit
  Public Sub AutoFitAll()
  Call AutoFitMergedCells(Range("A2:Z2"))
  
  End Sub
  Public Sub AutoFitMergedCells(oRange As Range)
  Dim tHeight As Integer
  Dim iPtr As Integer
  Dim oldWidth As Single
  Dim oldZZWidth As Single
  Dim newWidth As Single
  Dim newHeight As Single
  With Sheets("Sheet1")
  oldWidth = 0
  For iPtr = 1 To oRange.Columns.Count
  oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
  Next iPtr
  oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
  oRange.MergeCells = False
  newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
  oldZZWidth = .Cells("1048576", oRange.Column).ColumnWidth
  .Cells("1048576", oRange.Column) = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
  .Cells("1048576", oRange.Column).WrapText = True
  .Columns(oRange.Column).ColumnWidth = oldWidth
  .Rows("1048576").EntireRow.AutoFit
  newHeight = .Rows("1048576").RowHeight / oRange.Rows.Count
  .Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
  oRange.MergeCells = True
  oRange.WrapText = True
  .Cells("1048576", oRange.Column).ClearContents
  .Cells("1048576", oRange.Column).ColumnWidth = oldZZWidth
  End With
  End Sub
  
  Reply
- To post as a guest, your comment is unpublished.
  Viktor · 4 years ago
  
  Hi Danielle,
  
  I ran into the same problem, when running the macro a second time in the first row. The code uses
  
  .Rows("1").EntireRow.AutoFit (line 26)
  
  and if you run in on, say A1:B1, your A1 cell has WordWrapping set to ON from line 30.
  
  The easiest solution seems to be switching WordWrapping off at the beginning of the sub. Add
  
  oRange.WrapText = True
  
  between lines 13 and 14 and you should be OK.
  
  Reply
To post as a guest, your comment is unpublished.
Dina · 5 years ago
I have the following entered, but I get an error message "Run-time error '13': Type mismatch" Help?

Option Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("a8:h8"))
Call AutoFitMergedCells(Range("a10:h10"))
Call AutoFitMergedCells(Range("a11:h11"))
Call AutoFitMergedCells(Range("b17:h17"))
Call AutoFitMergedCells(Range("b22:h22"))
Call AutoFitMergedCells(Range("b24:h24"))
Call AutoFitMergedCells(Range("a26:h26"))
Call AutoFitMergedCells(Range("a28:h28"))

End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Offer Letter")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Range("ZZ1").ColumnWidth
.Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Range("ZZ1").WrapText = True
.Columns("ZZ").ColumnWidth = oldWidth
.Rows("1").EntireRow.AutoFit
newHeight = .Rows("1").rowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).rowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
- Reply
To post as a guest, your comment is unpublished.
Joe Dell · 6 years ago
This code causes additional rows to be deleted. I have numbers on left side and columns next to it are merged/wrapped data. For example, in a Job description, list responsibilities with numbers followed by explanation of duty. Any thoughts? Thanks.
- Reply

Connectez-vous à votre compte

Réinitialiser mot de passe