Excel - Bir hücrenin yanındaki verileri kopyalayın ve aşağıya yapıştırın

Konu

Aşağıdaki gibi düzenlenmiş verilerim var:

 hücre | A | B | C ----------------------------------------------------- --- 1 | Merhaba | Merhaba | 2. sabah | Yardım | Lütfen | 3 | Teşekkürler | Görüşürüz | Hoşçakal 

bu veriyi bu format yapmak için yapmam gerekiyor

 hücre | A | B | C ----------------------------------------------------- - 1 | Merhaba | Merhaba | 2. sabah | | Sabah | ------------------------------------------------ 3 | Yardım | Lütfen | ------------------------------------------------ 4 | Teşekkürler | Görüşürüz | Hoşçakal 5 | | Hoşçakal | ---------------------------------------------- 

Bazı koşulların dikkate alınması gerektiğinin farkındayım:

C1'in veri içerip içermediğini kontrol etmek,

  • 1) evet ise, verileri B2 hücresine kopyalayın (nispeten sol ve C1'in altındaki bir hücre)

Sonra sürekli B2 hücresinin altını çizin

  • 2) hayır ise, altı çizili ve bir sonraki satıra geçin.
  • 3) veri içeren son hücreye kadar devam edin

Çözüm

  • İlk önce verileri sayfa2'ye kopyalayın.
  • Sonra "test" makrosunu deneyin

 Alt test () Dim j Tamsayı, k Tamsayı Çalışma Sayfaları Olarak ("sayfa1"). J = Aralık ("A1") Etkinleştir. End (xlDown) .Row için k = j. 1 Adım -1 Eğer Hücreler (k, " C ")" "Sonra K = 1 Sonra Hücreler (k + 1, " A ") .TümRow.Insert Hücreleri (k, " c "). Hücreleri Kesin (k + 1, " B ") Hücreler (k + 2, "A"). AllRow.FormulaArray = "'-----------------" Hücrelerde Alt Uçtan Çık (k, "A"). TümRow.Insert Hücreleri (k + 1, "C"). Hücreleri Kesme (k + 2, "B") Hücreler (k + 3, "A"). TümAşağıFormulaArray = "'--------------- - "Başka Hücreler (k, " A ") .TümRow.Insert Hücreleri (k + 2, " a ") .TümRow.FormulaArray =" '--------------- "Son Sıra Sonsa k Son Alt Alt geri al () Çalışma Sayfaları (" sayfa1 "). Cells.Clear Çalışma Sayfaları (" sayfa2 "). Cells.Copy Çalışma Sayfaları (" sayfa1 "). Aralık (" A1 ") Bitiş Alt 

Bunu not et

Forumdaki bu ipucu için venkat1926'ya teşekkür ederiz.

Önceki Makale Sonraki Makale

En Ipuçları