Excel - Kopirajte podatke poleg celice in jih prilepite spodaj

Težava

Imam podatke, urejene spodaj:

 celica | A | B | C ------------------------------------------------- --- 1 | Zdravo Pozdravljeni Jutro 2 | Pomoč | Prosim 3 | Hvala Vidimo se Adijo 

Moram narediti te podatke, da postanejo ta format

 celica | A | B | C ------------------------------------------------- - 1 | Zdravo Pozdravljeni Jutro 2 | | Jutro ---------------------------------------------- 3 Pomoč | Prosim ---------------------------------------------- 4 Hvala Vidimo se Adijo 5 | | Adijo ---------------------------------------------- 

Zavedam se, da je treba upoštevati nekatere pogoje:

Če želite preveriti, ali C1 vsebuje podatke ali ne,

  • 1) če da, kopirajte podatke v celico B2 (celica sorazmerno levo in pod C1)

Nato podčrtajte pod celico B2

  • 2) če ne, podčrtajte in nadaljujte z naslednjo vrstico
  • 3) nadaljujte do zadnje celice, ki vsebuje podatke

Rešitev

  • Najprej kopirajte podatke v list2.
  • Nato poskusite z makrom »test«

 Sub test () Dim j Kot Integer, k Kot Celoštevilčni delovni listi ("sheet1") Aktivirajte j = Območje ("A1"). C ")" "Potem Če je k = 1, potem celice (k + 1, " A "). EntireRow.Insert Cells (k, " c ")., "A"). EntireRow.FormulaArray = "'-----------------" Izhod Sub End Če celice (k, "A"). EntireRow.Insert Cells (k + Izreži celice (k + 2, "B") Celice (k + 3, "A"). EntireRow.FormulaArray = "'--------------- - "Else Cells (k, " A "). EntireRow.Insert Cells (k + 2, " a "). EntireRow.FormulaArray =" '----------------- "Konec Če je naslednja k Konec Sub Sub undo () Delovni listi (" sheet1 "). Cells.Clear Worksheets (" sheet2 ") Cells.Copy Worksheets (" sheet1 "). 

Upoštevajte, da

Hvala za venkat1926 za ta nasvet na forumu.

Prejšnji Članek Naslednji Članek

Top Nasveti