Graham, en Excel, ha creado una matriz de nombres de jugadores para su liga.

Las celdas B2: H2 contienen los nombres de los jugadores, al igual que las celdas A3: A9. En cada intersección de la matriz, Graham coloca una «W» o una «L» para indicar si el enfrentamiento resultó en una victoria o una derrota para el jugador en cada fila. Si un jugador juega con otra persona más de una vez, entonces una celda contiene una «W» o una «L» para cada juego. Graham se preguntaba qué fórmula podría usarse, comenzando en la columna I, para indicar el número de victorias y derrotas de cada jugador.

Hay varias formas de obtener la información deseada. Uno es usar este tipo de fórmula:

=LEN(SUBSTITUTE(B3&C3&D3&E3&F3&G3&H3,"L",""))

Esta fórmula calcula la cantidad de caracteres que no son L en la fila 3; en otras palabras, la cantidad de victorias. Lo hace concatenando el contenido de B3: H3 y luego usando la función SUSTITUIR para eliminar todas las Ls. Esto deja las W, que son contadas por la función LEN. También puede usar la función CONCATENAR, de la siguiente manera, para obtener el mismo resultado:

=LEN(SUBSTITUTE(CONCATENATE(B3,C3,D3,E3,F3,G3,H3),"L",""))

Para calcular el número de pérdidas, simplemente reemplace «L» en cada fórmula con «W».

También puede usar una fórmula de matriz, que le permite especificar un rango de celdas para examinar, en lugar de tener que especificar cada celda:

=SUM(LEN(SUBSTITUTE(B3:H3, "L","")))

Esta fórmula de matriz, ingresada presionando Shift + Ctrl + Enter, devuelve el número de victorias (caracteres W) en el rango B3: H3.

Finalmente, puede usar una función definida por el usuario para devolver las ocurrencias de un carácter específico dentro de un rango dado. La siguiente macro funcionará:

Function CharNums(r, chr) As Integer     Dim c As Range     Dim strX As String     Dim J As Integer

Application.Volatile     CharNums = 0     For Each c In r.Cells         strX = c.Value         For J = 1 To Len(strX)

If Mid(strX, J, 1) = chr Then CharNums = CharNums + 1         Next J     Next c End Function

Para usar la función, usaría una fórmula como esta en su hoja de trabajo:

=CharNums(B3:H3;"W")

La función devuelve el número de caracteres W mayúsculas en el rango.

Todos los demás caracteres (incluidos los caracteres w en minúscula) se ignoran. Para contar las pérdidas, simplemente sustituya W por L en la fórmula.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3049) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Counting_Wins_and_Losses [Contando ganancias y pérdidas].