Excel - Kopioi tiedot solun vieressä ja liitä se alla

Ongelma

Minulla on seuraavat tiedot:

 solu A | B | C ------------------------------------------------- --- 1 | Hei | Hei | Aamu 2 | Ohje Ole hyvä | 3 | Kiitos Nähdään Hei hei 

minun on tehtävä nämä tiedot tästä muodosta

 solu A | B | C ------------------------------------------------- - 1 | Hei | Hei | Aamu 2 | | Aamu | ---------------------------------------------- 3 | Ohje Ole hyvä | ---------------------------------------------- 4 | Kiitos Nähdään Bye 5 | | Bye | ---------------------------------------------- 

Ymmärrän, että joissakin olosuhteissa on otettava huomioon:

Voit tarkistaa, sisältääkö C1 tiedot vai ei,

  • 1) jos on, kopioi tiedot soluun B2 (solu, joka on suhteellisen vasemmalla ja alapuolella C1)

Sitten alleviivataan jatkuvasti solun B2 alapuolelle

  • 2) jos ei, alaviiva ja jatka seuraavalla rivillä
  • 3) jatka viimeistä dataa sisältävään soluun

Ratkaisu

  • Kopioi ensin tiedot arkille2.
  • Kokeile sitten makro-testiä

 Sub-testi () Dim j As Integer, k Integer-laskentataulukkoina ("sheet1") Aktivoi j = Range ("A1"). End (xlDown) .Row For k = j To 1 Step -1 Jos solut (k, " C ")" "Sitten Jos k = 1 Sitten solut (k + 1, " A "). EntireRow.Insert solut (k, " c "). Leikatut solut (k + 1, " B ") Solut (k + 2, "A"). EntireRow.FormulaArray = "'-----------------" Lopeta lopetus, jos solut (k, "A"). EntireRow.Insert Cells (k + 1, "C".) Leikatut solut (k + 2, "B") Solut (k + 3, "A"). EntireRow.FormulaArray = "'--------------- - "Muut solut (k, " A "). EntireRow.Insert Cells (k + 2, " a "). EntireRow.FormulaArray =" '----------------- "Lopeta, jos seuraava k Lopeta alatoiminnon peruuttaminen () Työarkit (" arkki1 ") Solut.Selkeät työarkit (" arkki2 ") .Solujen.Kopioi työarkit (" arkki1 "). 

Ota huomioon, että

Kiitos venkat1926 tästä vinkistä foorumissa.

Edellinen Artikkeli Seuraava Artikkeli

Top Vinkkejä