¡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 p >
Columnas("F:F").Seleccione seleccionar columna f
Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ p >
:=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