Excel - Salin data bersebelahan sel dan tampal di bawah

Isu

Saya mempunyai data yang diatur seperti di bawah:

 sel | | A | B | C ------------------------------------------------- --- 1 | Hi | Hello | Pagi 2 | Bantuan | Sila | 3 | Terima kasih | Lihat awak | Bye

saya perlu membuat data ini menjadi format ini

 sel | | A | B | C ------------------------------------------------- - 1 | Hi | Hello | Pagi 2 | | Pagi | ---------------------------------------------- 3 | Bantuan | Sila | ---------------------------------------------- 4 | Terima kasih | Lihat awak | Bye 5 | | Bye | ----------------------------------------------

Saya menyedari bahawa beberapa syarat perlu diambil kira:

Untuk memeriksa sama ada C1 mengandungi data atau tidak,

1) jika ya, salin data ke dalam sel B2 (sel yang agak kiri dan bawah C1)

Kemudian gambarkan secara berterusan di bawah sel B2

2) jika tidak, garis bawah dan teruskan dengan baris seterusnya
3) teruskan sehingga sel terakhir yang mengandungi data

Penyelesaian

Salin dahulu data dalam sheet2.
Kemudian cuba "ujian" makro

 Aktifkan j = Range ("A1"). Akhir (xlDown). Row Untuk k = j Ke 1 Langkah -1 Jika Sel (k, " Selanjutnya (k + 1, "A", "A"). EntireRow.FormulaArray = "'-----------------" Keluar Sub Akhir Jika Sel (k, "A") EntireRow.Insert Sel (k + Sel-sel (k + 2, "B") Sel (k + 3, "A"). EntireRow.FormulaArray = "'--------------- - "Else Cells (k, " A "). EntireRow.Insert Cells (k + 2, " a ") EntireRow.FormulaArray =" '----------------- "End If Next k End Sub Sub undo () Worksheets (" sheet1 "). Sels.Clear Worksheets (" sheet2 ") Sels.Copy Worksheets (" sheet1 ") Range (" A1 "