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

• #41137 Fferi50 Topikgazda BullZeye #41135

  Új Válasz 2019-05-22 22:00:45 #41137

  Ú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

  

  Fferi50

  Topikgazda

  válasz BullZeye #41135 üzenetére

  Szia!

  Ha egymás alatti sorokban vannak egyesített celláid, akkor egyszerre lehet a műveleteket végrehajtani.
  De ha jól értem nem ez a helyzet.
  Próbáld ki az alábbi makrót, ez a munkalapon valamennyi egyesített cellát felbontja és az első cellában levő értékkel megtölti:

  Sub felbont()
Dim cl As Range, cla As Range
For Each cl In ActiveSheet.UsedRange.Cells
If cl.MergeArea.Cells.Count > 1 Then
Set cla = cl.MergeArea
cl.UnMerge
cl.AutoFill Destination:=cla, Type:=xlFillCopy
End If
Next
End Sub

  Üdv.

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