, hvad nu, hvis jeg har en arbejdsplan med nogle fusionerede celler, som efter skærmbillede vises, og nu har jeg brug for at resize celle række højde for at vise hele indholdet, under vba kode kan hjælpe dig til auto passer rækken højde af flere fusionerede celler, gør som følger:,,,,,, 1.hold den, alat + f11, nøgler, og det åbner, microsoft visual basic for ansøgninger vindue,.,,,. 2.klik, indsæt >, modul, og pasta følgende kode i modul vindue,., vba kode: auto passer række højde af flere fusionerede celler, mulighed for eksplicit offentlige under autofitall() kalder autofitmergedcells (interval ("a1: b2") til autofitmergedcells (interval (c4 -: d6 ") til autofitmergedcells (interval (" e1: e3 ")) og de offentlige under autofitmergedcells (orange som interval) dim theight som hele dim iptr som hele dim oldwidth som fælles dim oldzzwidth som fælles dim newwidth som fælles dim newheight som fælles med ark (" sheet4 ") oldwidth = 0 for iptr = 1 til orange.columns.count oldwidth = oldwidth + celler (1, orange. kolonne + iptr - 1). columnwidth næste iptr oldwidth =. celler (1, orange. kolonne). columnwidth + celler (1, orange. kolonne + 1). columnwidth orange.mergecells = falske newwidth = len (. celler (orange.row, orange. kolonne). værdi) oldzzwidth =. udvalg ("zz1"). columnwidth. udvalg ("zz1") = venstre (. celler (orange.row, orange. kolonne). værdi, newwidth). udvalg ("zz1"). wraptext = sandt. kolonne (»zz«). columnwidth = oldwidth. rækker ("1"). entirerow.autofit newheight =. rækker ("1"). rowheight /orange.rows.count. rækker (cstr (orange. ro) & ":" & cstr (orange.row + orange.rows.count - 1). rowheight = newheight orange.mergecells = sandt orange.wraptext = sandt. udvalg ("zz1"). clearcontents. udvalg ("zz1"). columnwidth = oldzzwidth ende med afrika,,,,,,,,,,: (1) i ovennævnte kode, - kan tilføje nye ranges bare en kopi til autofitmergedcells (interval ("a1: b2"), manuskript, mange gange, som du vil, og ændre den fusionerede celle, varierer deres behov.,, (2), og de bør ændre den nuværende arbejdsplan navn, sheet4, din brugte plader navn.,,, 3.så tryk, f5, nøglen til at løbe denne kode, og nu kan du se alle de fusionerede celler er blevet udstyret til deres celle - indhold, jf,,,,,,, skærmbillede: