Kā izveidot vienu no diviem šūnu saturu programmā Excel
Excel piedāvā iespēju apkopot šūnas. Izmantojot funkciju FORMAT - CELLS - ALIGNMENT - COMBINE CELLS, jūs varat apvienot divas šūnas vienā vienībā. Bet ko jūs darāt, ja abās šūnās ir saturs, kuru nevēlaties zaudēt? Izmantojiet VBA, lai atrisinātu problēmu.
Šajā attēlā redzamais piemērs parāda īsu vārdu sarakstu:
Jūs vēlaties apvienot divus slejas A un B saturu pirmajā slejā A un pēc tam apvienot abas šūnas no A un B kolonnas vienā šūnā. Šo darbu veic šāds makro:
Apvienot apakššūnas ()
Blāva līnija Kā vesels skaitlis
Rinda = 1
Kamēr nav (IsEmpty (šūnas (1. rindiņa)))
Šūnas (1. rinda) = šūnas (1. rinda) un "" & šūnas (2. rinda)
Šūnas (2. līnija). Skaidrs saturs
Diapazons (šūnas (1. rinda), šūnas (2. rinda)). Apvienot
Līnija = līnija + 1
Wend
Kolonnas (1). AutoFit
Beigt apakš
Makro iet caur līnijām no 1. rindas, līdz kolonna A ir tukša. Katram saturam, kas nav tukšs, A un B saturs ir pievienots viens otram (atdalīts ar atstarpi). Tad abas šūnas A un B ir savienotas, veidojot vienu šūnu. Sekojošais attēls parāda rezultātu:
