Excel - andmete kopeerimine ja kleepimine klõpsamisel

Probleem

Mul on andmed A2-st A10-le. Kui taban lahtrit B1, mis sisaldab sõna "jaanuar", kopeeritakse andmed B2-ks B10-sse. Kui ma taban lahtrit D1, mis sisaldab sõna "märts", kopeeritakse andmed D2 - D10.

Teises sõnas tahaksin, et andmed kopeeritaks ja kleepitaks veerudesse, mida ma klõpsasin.

Lahendus

Eeldasin, et igal kuul on üks veerg, nii et kood aktiveeritakse ainult siis, kui on valitud vahemik B1: M1.

See kood peaks olema trikk:

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Kui ristuvad (Target, Range ("B1: M1")) Kas midagi ei välju Alamkaugusest ("A2: A10"). Kopeeri sihtkoht: = Rakud (2, Target.Column) Sub 

Kui soovite, et kood toimiks kogu esimese rea jaoks, siis muutke:

 Vahemik ("B1: M1") ridadesse (1).