Red de conocimiento informático - Conocimiento informático - ¡Ayúdame a ver esta macro y lo que significa!

¡Ayúdame a ver esta macro y lo que significa!

Celdas.Find(What:="WARNING*", After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= xlNext, _

MatchCase:=False).Activar

ActiveCell.Replace What:="WARNING*", Reemplazo:="", LookAt:=xlWhole, _

SearchOrder:=xlByRows, MatchCase:=False

Busque WARNING* y reemplace WARNING* con un espacio en blanco

ActiveWindow.ScrollRow = 1 Mueva la primera fila a la parte superior

Columnas("F:F").Seleccione seleccionar columna f

Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _

:=False).Activar

ActiveCell.Replace What:="0" , Reemplazo:=". 0", LookAt:=xlWhole, _

SearchOrder:=xlByColumns, MatchCase:=False

Reemplace 0 con .0 en la columna F

Filas("1:7").Select Seleccionar filas 1-7

Selection.Delete Shift:=xlUp Eliminar filas 1-7

Range("F2") .Select selecciona la celda F2

Range(Selection, Selection.End(xlDown)).Select selecciona F2 hasta el último rango de celdas no vacías en la columna F debajo de F2 (no sé qué es el comando EXcel usado para esto, quién sabe, escríbalo)

Selection.TextToColumns Destination:=Range("F2"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter :=Verdadero, Tabulador:=Falso, _

Punto y coma:=Falso, Coma:=Falso, Espacio:=Verdadero, Otro:=Verdadero, OtroCarácter:= _

". ", FieldInfo :=Array(Array(1, 9), Array(2, 1))

Ordenar las áreas seleccionadas en columnas

Las siguientes son duplicados