Unmerge and replicate no LibreOffice Calc

Option VBASupport 1
Option Compatible

Sub UnMergeFill()
 
 Dim cell As Range, joinedCells As Range
 
 For Each cell In ThisWorkbook.ActiveSheet.UsedRange
 If cell.MergeCells Then
 Set joinedCells = cell.MergeArea
 cell.MergeCells = False
 joinedCells.Value = cell.Value
 End If
 Next

End Sub

Anúncios
Deixe um comentário

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: