Excel - Kopioi ja liitä tiedot klikkaamalla

Ongelma

Minulla on joukko tietoja A2: stä A10: een. Kun osuma soluun B1, joka sisältää sanan "tammikuu", tiedot kopioidaan B2: sta B10: een. Jos osuma soluun D1, joka sisältää sanan "maaliskuu", tiedot kopioidaan D2: een D10: een.

Toisessa sanassa haluaisin, että tiedot kopioidaan ja liitetään napsautettuihin sarakkeisiin.

Ratkaisu

Oletin, että sinulla on yksi sarake joka kuukausi, joten koodi aktivoituu vain, kun alue B1: M1 on valittu.

Tämän koodin pitäisi tehdä temppu:

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Jos leikkaa (Target, Range ("B1: M1")) Ei mitään Poistu alialueelta ("A2: A10") Kopioi kohde: = Solut (2, Target.Column) Sub

Jos haluat, että koodi toimii koko ensimmäisellä rivillä, muuta: