Cómo escribir la función RANK en lenguaje VBA

Resuelto, el código es el siguiente:

Private Sub KILLONE()

Atenuar i como entero

Atenuar número como doble

Número = Hojas de trabajo("hoja1").Celdas(1, 1).Valor

Establecer miRango = Hojas de trabajo("Hoja1").Rango("A1：C10")

i = Application.WorksheetFunction.Rank(Number, myRange, 0)

End Sub

Tu error: el parámetro 1 de RANK debe ser un valor doble (como Como 3.5 Valores similares), el parámetro 2 debe ser de tipo rango. Se recomienda consultar mi método de escritura de tipo RANGE.

Cabe señalar que efectivamente hay un valor de tipo Doble en la celda A1; de lo contrario, se producirá un error de tipo 1004.

Ejecute el código anterior,