Script do Excel 2013 VBA necessário para [fechado]

Question

Eu tenho várias células que têm uma cadeia de texto que são parcialmente negrito e parcialmente NotBold. Preciso deletar a parte Bold do Texto nas Células

Exemplo:

lname1,fname1[email protected]

lname2,fname2[email protected]

lname3,fname3[email protected]

Eugostariadeexcluironegrito"lname, fname" e manter o endereço de e-mail na célula.

    

Answer 1

Antes:

Ocódigo:

SubBoldKiller()DimLAsLong,rAsRange,tAsString,iAsLongForEachrInIntersect(ActiveSheet.UsedRange,Selection)t=r.TextIft<>"" Then
            L = Len(t)
            For i = L To 1 Step -1
                If r.Characters(i, 1).Font.Bold = True Then
                    r.Characters(i, 1).Delete
                End If
            Next i
        End If
    Next r
End Sub

e depois:

EDIT#1:

Estamacroextraioscaracteresemnegritoeoscolocanacolunaadjacente:

SubBoldKiller2()DimLAsLong,rAsRange,tAsString,iAsLongDimrrAsRangeForEachrInIntersect(ActiveSheet.UsedRange,Selection)t=r.TextIft<>"" Then
            Set rr = r.Offset(0, 1)
            rr.Font.Bold = True
            L = Len(t)
            For i = L To 1 Step -1
                If r.Characters(i, 1).Font.Bold = True Then
                    rr.Value = r.Characters(i, 1).Text & rr.Value
                    r.Characters(i, 1).Delete
                End If
            Next i
        End If
    Next r
End Sub

Antes:

edepois: