Buscar tiempo de escritura y otros criterios vía VBA en excel

¿Dim? ¿I? ¿Como qué? Entero,? ¿s? ¿Como qué? Cadena,? ¿do? ¿Como qué? Entero

¿Atenuado? Estres. ¿Como qué? Línea

¿Para qué? ¿I? =?1?¿Adónde ir? Lente(sRng)

s? =?mid(sRng,i,?1)

¿Si? ¿s? ¿Por ejemplo? "#"? ¿Y luego qué? ¿Reporte de noticias? =?Reportes de noticias? y amplificador? S

¿Y si? ¿s? =?"."? Entonces qué. ¿do? =?0?Entonces

¿Reportes de noticias? =?Reportes de noticias? y amplificador? s:? ¿do? =?c? +?1

¿Fin? Si

Entonces

¿ObtenerNum? =?Val News

¿Fin? Función

¿Función? calc max(DteStart? ¿como qué? cadena,? teden. ¿como qué? cadena)

dim? ¿Shh? ¿Como qué? ¿Hoja de trabajo? Ah, ah? Total (8)

¿Oscuro? ¿s? ¿Como qué? ¿fecha? r? ¿Como qué? Entero,? ¿do? ¿Como qué? Entero

¿Configuración? ¿Shh? =?este libro de trabajo. ¿Zhang(1)? //Especifíquelo como hoja1 y realice reemplazo y ajuste.

¿Arrr? =? chelín("A2:H"? & amp? chelín[A65536].end(xlUp).row)

si? ¿CDate(DteStart)? >? ¿CDate(DteEnd)? ¿Entonces qué? ¿abandonar? Función

¿Para qué? r? =?1?¿Adónde ir? ¿Debes? =?CDate(Arr(R,1))

¿Si? ¿s? & gt=?CDate(DteInicio)? Entonces qué. ¿s? <=?CDate(DteEnd)? Entonces

¿Para qué? ¿do? =?2?¿Adónde ir? ocho

arr (R, c)? =?GetNum(Arr(R,c))

Total(C)? =?arr(R,c)? +?Total (C)

Entonces

¿Fin? Si

Entonces

¿CalcMax? =?Función de hoja de cálculo. Máximo (total)

¿Configuración? ¿Shh? =?Nada

¿El final? Aquí hay una función lista para usar que es similar a lo que desea, pero agrega un rango específico y encuentra la "columna" de valor máximo, es decir, extrae y agrega los datos para una fecha específica y luego encuentra la columna con el valor máximo. O puedes subir una foto y ver quién sabe a qué te refieres y te ayudará. ¡Buena suerte!