¿El primer número en el retiro de Excel de Yongzhong siempre se modifica y debe perderse por segunda vez?

Excel - Herramientas - Macro - Grabar macro

En el cuadro de diálogo emergente, configure una tecla de acceso directo usted mismo y haga clic en Aceptar.

Luego ve a Herramientas - Macro - Detener grabación de macro

Presiona Alt+F11 para abrir la macro y simplemente copia este código en ella

Atenuar como String

Dim b As String

Do

a = InputBox("Ingrese datos", "Datos 1")

b = InputBox("Por favor, ingrese datos nuevamente", "Datos 2")

Si a = b Entonces

ActiveCell.FormulaR1C1 = a

Salir Do

ActiveCell.FormulaR1C1 = a

Salir Do

Else

MsgBox ("Los datos son incorrectos, vuelva a ingresar")

End If

Bucle

Luego seleccione la celda que desea ingresar y ejecute la macro correspondiente.

Esta es una columna completa, pero debido a que tengo poco talento y conocimiento, no dejaré que VBA juzgue por mí mismo, por lo que solo puedo ingresar primero el número de bucles, que es el número correspondiente de filas^ _^ (suponiendo que desea ingresar datos de esta columna 10 significa que el número de filas es 10, luego ingresa 10 para el número de bucles)

Atenuar una cadena como

Atenuar b Como cadena

Dim c Como entero

Dim d Como entero

c = InputBox("Ingrese el número de ciclos (número correspondiente de filas)" , "Número de ciclos")

d = 0

Hacer hasta d = c

a = InputBox("Por favor ingrese datos", "Datos 1" )

b = InputBox(" Ingrese datos nuevamente", "Datos 2")

Si a = b Entonces

ActiveCell.FormulaR1C1 = a

ActiveCell.Offset(1, 0) .Select

d = d + 1

Finalizar si

Si a <> b Entonces

MsgBox ("Los datos son incorrectos, vuelva a ingresar")

Finalizar si

bucle

Cuando se ejecuta, primero seleccione el primera celda de toda la columna y luego ejecute la macro. (Supongamos que desea comenzar a ingresar desde la celda B2 en la columna B y terminar en la fila B11, luego puede seleccionar primero la celda B2 y luego ingresar 11 en el cuadro de diálogo para el número de ciclos)