Excel - Salin data di sebelah sel dan tempel di bawah
Isu
Saya memiliki data yang diatur sebagai berikut:
sel | A | B | C ------------------------------------------------- --- 1 | Hai | Halo | Pagi 2 | Bantuan | Tolong | 3 | Terima kasih | Sampai jumpa | Sampai jumpa
saya perlu membuat data ini untuk menjadi format ini
sel | A | B | C ------------------------------------------------- - 1 | Hai | Halo | Pagi 2 | | Pagi | ---------------------------------------------- 3 | Bantuan | Tolong | ---------------------------------------------- 4 | Terima kasih | Sampai jumpa | Sampai jumpa 5 | | Sampai jumpa | ----------------------------------------------
Saya menyadari bahwa beberapa kondisi perlu dipertimbangkan:
Untuk memeriksa apakah C1 berisi data atau tidak,
- 1) jika ya, salin data ke sel B2 (sel relatif di kiri dan di bawah C1)
Kemudian garis bawahi terus menerus di bawah sel B2
- 2) jika tidak, garis bawahi dan lanjutkan dengan baris berikutnya
- 3) lanjutkan sampai sel terakhir yang berisi data
Larutan
- Pertama-tama salin data dalam sheet2.
- Lalu coba makro "tes"
Sub test () Dim j Sebagai Integer, k As Integer Worksheets ("sheet1"). Aktifkan j = Range ("A1"). End (xlDown) .Row Untuk k = j Ke 1 Langkah -1 Jika Sel (k, " C ")" "Lalu Jika k = 1 Lalu Sel (k + 1, " A "). Seluruh Sel. Masukkan Sel (k, " c "). Potong Sel (k + 1, " B ") Sel (k + 2, "A"). EachRow.FormulaArray = "'-----------------" Keluar dari Sub End If Cells (k, "A"). SeluruhRow.Insert Cells (k + 1, "C"). Sel Potong (k + 2, "B") Sel (k + 3, "A"). SeluruhRow.FormulaArray = "'--------------- - "Sel Lain (k, " A "). Seluruh Sel. Masukkan Sel (k + 2, " a "). SeluruhRow.FormulaArray =" '----------------- "End If Next k End Sub Subo membatalkan () Lembar kerja (" sheet1 "). Sel. Lembar kerja yang jelas (" sheet2 "). Sel. Lembar kerja fotokopi (" sheet1 "). Range (" A1 ") End Sub
Catat itu
Berkat venkat1926 untuk tip ini di forum.