Programación en Excel VBA, filtre las tres materias de chino, matemáticas e inglés y ordene por puntajes, como se muestra en la figura. Aprende programación, pide consejo nuevamente
Sub?Test()
dim?i,j,k,t,s,arr(1?to?2,?1?to?3
i=2 p>
while?celles(i,1)<>""
'Make?arr
j=1
for?each?k ?en?matriz?(2,4,6)
arr(1,j)=celdas(1,k)
arr(2,j)=celdas(i, k)
¿siguiente?
for?k=j+1?to?3
si?arr(2,k) para?t=1?to? s=arr(t,k) arr(t,k)=arr(t ,j) arr(y,j)=s siguiente?t end?if siguiente?k p> siguiente?i 'eliminar?<60 for?j=1?to? if?arr(2,j) <60?then?arr(1,j)="" siguiente?j '¿Guardar? celdas(i,8)=arr( 1,1)? &"?" &?arr(1,2)? &" &?arr(1,3) i=i+1 ¿Fin?