Excel - クリックしてデータをコピー＆ペースト

問題

A2からA10までのデータがあります。 "January"という単語を含むセルB1を押すと、データはB2からB10にコピーされます。 "March"という単語を含むセルD1をヒットすると、データはD2からD10にコピーされます。

つまり、クリックした列にデータをコピーして貼り付けることができます。

溶液

月ごとに1つの列があると仮定したので、コードはB1：M1の範囲のセルが選択されている場合にのみアクティブになります。

このコードはうまくいくはずです。

 Private Sub Worksheet_SelectionChange（ByVal Target As Range）交差（Target、Range（ "B1：M1"））が何もない場合はSub Range（ "A2：A10"）を終了します。サブ 

最初の行全体でコードを機能させたい場合は、次のように変更します。

 範囲（ "B1：M1"）から行（1）まで。