Guru do Excel e Power BI

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.

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

Ficou excelente.
Obrigado pela ajuda.

Guru do Excel e Power BI

Selecionar célula mesclada

Selecionar célula mesclada

Re: Selecionar célula mesclada

Re: Selecionar célula mesclada