Excel - kopēt un ielīmēt datus pēc klikšķa

Izdevums

Man ir datu kopa par A2 līdz A10. Kad es nokļuvu B1 šūnā, kurā ir vārds "janvāris", dati tiks kopēti B2 uz B10. Ja es nokļūt šūnā D1, kurā ir vārds "marts", tad dati tiks kopēti D2 uz D10.

Citā vārdā es vēlētos, lai dati tiktu kopēti un ielīmēti kolonnās, uz kurām esmu noklikšķinājis.

Risinājums

Es pieņemu, ka katram mēnesim ir viena kolonna, tāpēc kods tiks aktivizēts tikai tad, ja ir atlasīta šūna diapazonā B1: M1.

Šim kodam vajadzētu būt triks:

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Ja krustojas (Target, Range ("B1: M1")) Vai nekas pēc tam iziet no apakšgrupas ("A2: A10"). Kopēt galamērķi: = šūnas (2, mērķa. Kolonna) beigas Sub

Ja vēlaties, lai kods darbotos visā pirmajā rindā, tad mainiet: