Excel VBA: Cómo diferenciar letras solas y letras en palabras al realizar una acción en la macro

En uno de los archivos que tengo se usa una sola "A" para indicar que los alumnos asistieron, y en caso de observaciones, dentro de la misma fila se anotan nombres, como Alberto o Alejandra. Al querer revisar duplicados hice un código, que no considerará las "A" pues estas sí se repiten mucho, sin embargo mi código se cómo las A de Alejandra y de Alberto. ¿Hay alguna forma de pedirle a VBA que sólo considere las A que están solas en una celda o que no considera las A que están al principio o dentro de una cadena de texto. Aquí como hice la macro:

Columns("A:X").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Columns("J:X").Select
Selection.Replace What:="A", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("J:J").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Columns("K:K").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With

Y así sucesivamente.

1 Respuesta

Respuesta
1

Sin ponerme a probar el resto del código, entiendo que necesitas reemplazar A por vacío solo en las celdas donde aparezca solamente la A.

Si es así, ajusta en la siguiente instrucción lo que dejo en negrita:

Columns("J:X").Select
Selection.Replace What:="A", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas