Egyesítse az Excel cellákat tartalom elvesztése nélkül

Anonim

Hogyan készítsünk egyet a két cellatartalomból az Excelben

Az Excel lehetőséget kínál a cellák összegzésére. A FORMAT - SEJTEK - ALIGNMENT - COMBINE CELLS funkcióval két cellát egyesíthet egy egységbe. De mit tesz, ha mindkét cellában van olyan tartalom, amelyet nem szeretne elveszíteni? Használja a VBA -t a probléma megoldásához.

Az alábbi ábrán látható példa a nevek rövid listáját mutatja:

Az első A oszlop A és B oszlopának két tartalmát szeretné egyesíteni, majd az A és B oszlopból származó két cellát egyesíteni egy cellába. A következő makró látja el ezt a feladatot:

Alcellák egyesítése ()

Halvány vonal Egész számként

Sor = 1

Míg nem (IsEmpty (Cellak (1. sor))))

Sejtek (1. sor) = cellák (1. sor) és "" & cellák (2. sor)

Sejtek (2. sor). Tiszta tartalom

Tartomány (cellák (1. sor), cellák (2. sor)). Egyesítés

Vonal = sor + 1

Irányít

Oszlopok (1). AutoFit

End Sub

A makró végigfut a sorokon az 1. sortól, amíg az A oszlop üres. Minden nem üres tartalom esetében az A és a B tartalom egymáshoz kapcsolódik (szóközzel elválasztva). Ezután a két A és B cella összekapcsolódik egy cellává. Az alábbi ábra az eredményt mutatja: