, als ik een cel met de volgende screenshot Werkblad, nu moet ik aan de rij hoge toon, onder de VBA code kan helpen je automatisch aan te passen aan de pluraliteit van de samenvoeging van de cel en de lengte van de rij, alsjeblieft, als volgt:,,,,,, 1.Op het Alt+F11, sleutels, het openstellen van Microsoft de visuele van toepassing.,,,,, 2.- steek, >, modules en gebruik de volgende codes, module ramen, de VBA code: de automatische aanpassing van de hoogte van de door de fusie van de cel en de keuze van de concrete gemeenschappelijke autofitall () genaamd autofitmergedcells (bereik ("A1:B2)) dat autofitmergedcells (bereik (" - C4 -:D6 ") Tel. Autofitmergedcells (bereik) (') E3") terminals gemeenschappelijke autofitmergedcells (oranje) theight als gegevens voor Fuzzy oldwidth enkele sombere oldzzwidth enkele sombere newwidth enkele sombere verbetering van fineer ("Sheet4") oldwidth = 0 = 1 orange.columns.count oldwidth volgens = oldwidth + cellen (1 + staat, oranje. Kolom - 1) ColumnWidth onder. Staat oldwidth =. Cellen (1, oranje. Kolom columnw).宽度+细胞（1，橙色。柱+ 1）。ColumnWidth orange.mergecells =假newwidth = Len（。细胞（orange.row，橙色。列）。值）oldzzwidth =。范围（“zz1”）。柱宽范围（“zz1”）=左（。细胞（orange.row，橙色。列）。价值，newwidth）。范围（“zz1”）。wraptext =真。列（“ZZ”）。ColumnWidth = oldwidth。行（“1”）。entirerow.autofit提高=。行（“1”）。设定指定行的高度/orange.rows.count。行（CSTR（橙色。行）&；“：”&；CSTR（orange.row + orange.rows.count - 1））。设定指定行的高度=提高orange.mergecells =真正的orange.wraptext =真。范围（“zz1”）。一个clearContents。范围（“zz1”）。ColumnWidth = oldzzwidth端与端子，，，，，，注：（1）在上面的代码中，你可以添加新的REn alleen maar een kopie, bel autofitmergedcells (bereik ("A1:B2)), hoeveel keer veranderen met het script, naar je GSM bereik nodig.,, (2) de huidige naam moet je veranderen, Sheet4, gebruik je de naam.,,, 3.En de pers F5, het uitvoeren van deze code, nu zie je al de nieuwe cellen automatisch aan te passen aan de inhoud van de cel, kijk 's:,,,,,,,