Új hozzászólás Aktív témák

• #10547 m.zmrzlina senior tag gigi183 #10542

  Új Válasz 2011-06-18 12:25:38 #10547

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz gigi183 #10542 üzenetére

  A cellák szétválasztására (ha nem csak egyetlen oszlopról van szó) itt egy másik megoldás:

  Sub unmerge_v2()
  Dim sor As Integer, oszlop As Integer
  
  sor = Selection.Rows.Count 'kijelölt tartomány mérete
  oszlop = Selection.Columns.Count 'köszönet érte Fire-nek :-)
  
  For j = 1 To sor
  
  For i = 1 To oszlop
  
  ActiveCell.unmerge 'cellák szétválasztása
  Selection.FormulaR1C1 = ActiveCell.Value 'üres cellák értéke = aktívcella értéke
  ActiveCell.Offset(0, 1).Select 'eggyel jobbra
  
  Next
  
  ActiveCell.Offset(1, -oszlop).Select 'vissza a sor elejére
  
  Next
  
  End Sub

  Arra figyelj, hogy amikor elindul a makró akkor legyen kijelölve a teljes tartomány amiben szétválasztandó celláid vannak.

  Természetesen ez a kód is gyorsabban lefut letiltott képernyőfrissítéssel.

Új hozzászólás Aktív témák