Colección de citas famosas - Diccionario de frases chinas - Método removeall del diccionario Vba
Método removeall del diccionario Vba
El código más rápido está aquí:
Opción explícita
Subcopia por fila()
Diccionario difuso, permutación, i, j
Establecer dict = CreateObject("Script. Dictionary")
arr = Zhang(1).Use range
Para i = 1 al límite inferior(arr)
dict.deleteall
para j = 1 al límite inferior(arr, 2)
if arr(I,j) lt; gt "" entonces dict(arr (I, j) ) = Verdadero
Siguiente I
El conector final
El programa se coloca en el módulo de la siguiente manera:
Ejecuto este ejemplo , Tabla 1:
Ejecute la tabla generada 2:
Presione ALT F11 para insertar módulos y programas de entrada, o grabar macros para modificarlos. Si no hay ninguna base VBA, Recomiendo Baidu para comenzar. Si usa WPS, busque otro inteligente. Si tiene otras preguntas, copie la pantalla para preguntar.