Este fórum está sendo desativado

[Dunguinha]

Boa tarde.

Tenho uma lista de ramais com mais de 200 números.

Preciso que uma macro selecione a célula mesclada acima de onde estiver a célula ativa.

Esta explicadinho no anexo.

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub SelecionaPrimeiraMescladaAcima()
 Dim c As Range
  If ActiveCell.Column > 1 Or ActiveCell.MergeCells = True Then Exit Sub
  With Application
   .FindFormat.Clear
   .ReplaceFormat.Clear
   .FindFormat.MergeCells = True
  End With
  Set c = Range("A:A").Find("", ActiveCell, , , xlPrevious, xlByColumns, , , True)
  c.Select
  With Application
   .FindFormat.Clear
   .ReplaceFormat.Clear
  End With
End Sub

[Dunguinha]

Ficou excelente.
Obrigado pela ajuda.