Red de conocimiento informático - Aprendizaje de programación - ¿Cómo hacer referencia automáticamente a datos en celdas específicas dentro de un intervalo de tiempo específico (como 1 minuto) en Excel2012 para gráficos u otros fines?

¿Cómo hacer referencia automáticamente a datos en celdas específicas dentro de un intervalo de tiempo específico (como 1 minuto) en Excel2012 para gráficos u otros fines?

Sub prueba()

Dim no, va, va1, va2, va3, nuevaHora, nuevoMinuto, tiempo de espera

va = 1

va2 = 1

va3 = InputBox("Aquí, ingrese el último número absoluto de línea que se completará (por ejemplo, escriba 200, significa que se completará hasta la línea 200", "Aquí, ingrese el último número absoluto de línea que se completará) in"). Ingrese 200 para completar hasta la línea 200)", "Ingrese el número de línea de la última línea") * 1

Hacer hasta va gt; Si Len(Cells(va, va2)) gt; 0 Entonces

va = va 1

va1 = va - 1

Else.Cells(va, va2 ) = Celdas(va1, va2)

nuevaHora = Hora(Ahora())

nuevoMinuto = Minuto(Ahora()) 1

nuevoSegundo = Segundo ( Ahora())

Tiempo de espera = TimeSerial(nuevahora, nuevo minuto, nuevo segundo)

Aplicación.Espera tiempo de espera