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.

Artikel Sebelumnya Artikel Berikutnya

Tips