Excel - Salin & Tempel Data Setelah Klik

Isu

Saya memiliki satu set data pada A2 hingga A10. Ketika saya menekan sel B1 yang berisi kata "Januari", data akan disalin ke B2 ke B10. Jika saya menekan sel D1 yang berisi kata "Maret", maka data akan disalin ke D2 ke D10.

Dengan kata lain, saya ingin data disalin dan ditempelkan ke kolom yang saya klik.

Larutan

Saya berasumsi Anda memiliki satu kolom untuk setiap bulan, jadi kode hanya akan diaktifkan ketika sel dalam rentang B1: M1 dipilih.

Kode ini harus melakukan trik:

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) Jika Persimpangan (Target, Range ("B1: M1")) Tidak Apa-apa Maka Keluar Sub Range ("A2: A10"). Salin Tujuan: = Sel (2, Target.Column) Akhir Sub 

Jika Anda ingin kode berfungsi untuk seluruh baris pertama, maka ubah:

 Rentang ("B1: M1") menjadi Baris (1).