Excel - Kopiera och klistra in data vid klicka

Problem

Jag har en uppsättning data om A2 till A10. När jag slår på cell B1 som innehåller ordet "januari" kopieras data till B2 till B10. Om jag träffar cell D1 som innehåller ordet "mars", kopieras data till D2 till D10.

I ett annat ord vill jag ha data kopieras och klistras in i de kolumner som jag har klickat på.

Lösning

Jag antog att du har en kolumn för varje månad, så koden aktiveras endast när en cell i intervallet B1: M1 är vald.

Den här koden ska göra tricket:

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Om Intersect (Target, Range ("B1: M1")) Ingenting är sedan Avsluta Sub Range ("A2: A10"). Kopiera Destination: = Celler (2, Target.Column) Avsluta Sub 

Om du vill att koden ska fungera för hela första raden ändras sedan:

 Räckvidd ("B1: M1") i rader (1).