¿Problema con el código EXCEL VBA?
1. Eliminar la coma en la columna c.
2. Borre los datos de las columnas L a R (desde la segunda fila hasta la última fila, los datos están en la columna R)
3. (desde la segunda fila hasta la última fila) Los datos desde el principio de la fila) se reproducen en la columna L (a partir de la segunda fila).
4. Establezca la fórmula M2 =BUSCARV(L2, B:C, 2, 0) y complete hacia abajo.
5. Establezca la fórmula N2 = valor (derecha (vlookup (L2, b: d, 3, 0), 6)) y complete hacia abajo.
6. Establezca la fórmula O2 = sumifs (c[-8], c[-13], RC[-3]) y complete.
7. Establezca la fórmula P2 =CONTAR.SI($B:$B,$L2)+CONTAR.SI(¡Depósito total!$A:$A,IF(LEN(N2)=5,VALUE(z 000000 & amp; N2), valor (z00000 & ampN2))), y complételo.
8. Establezca la fórmula Q2 =IFERROR(BUSCARV(M2, código! A:B, 2, 0), "") y luego complete la parte inferior.
9. Establece la fórmula R2 =CONTAR.SI (¡Regístrate! $B:$B, L2) y complétala.
Declaración:
1, rango(" R65536 "). final (xlArriba). La fila representa la última fila con datos en la columna r.
2. set d = createobject("script.dictionary") objeto de diccionario, aquí se utiliza principalmente la fila única de su clave para copiar.
3. Rango ("L2"). cambiar tamaño (d.count, 1) = función de hoja de trabajo. La expansión de cambio de tamaño de transposición (d.keys) es cambiar L2 a L2: L (d.count + 1), como d.count = 10. Entonces esto es L2: L11, es decir, las filas de d.count-1 se expanden hacia abajo, las columnas de 1-1 = 0 se expanden hacia atrás y luego los datos de la matriz se colocan en ellas.
4. Alcance ("M2"). Seleccionar significa elegir la unidad M2.
5.ActiveCell. Fórmula de celda activa La fórmula de la celda actualmente seleccionada es una fórmula.
6. Elige. Destino de autocompletar: = rango ("M2: M" & rango ("L65536"). End (XLUP). Row) La selección representa la celda seleccionada, el autocompletar representa el llenado automático y el Destino representa la posición llena, aquí está M Las filas que contienen datos desde la segunda hasta la última fila de la columna.