241079_es-ES

liliconcom

Deshágase de columnas nulas

Hola a todos,
Necesito tu ayuda con este problema,
Adjunto hay una foto de la mesa en la que estoy trabajando.
Quiero deshacerme de cualquier columna vacía. Nota: cuando la fila 2 = 0 la columna está vacía.
que en este caso comienza en la columna 12 hasta el final de la tabla.
Realmente agradecería toda su ayuda,
Gracias,

Re: deshacerse de columnas nulas

¿Es esta tabla típica? Es decir, ¿espera el mismo diseño cada vez que importa una hoja de trabajo de este tipo? Si es así, puede usar el Asistente de importación de Excel para definir cosas como las filas con los nombres de columna (por ejemplo, la fila 12), la fila donde comienzan los datos (por ejemplo, la fila 13), la primera columna de datos (por ejemplo, , columna 1) y la última columna de datos (p. ej., columna 11).

 

Otra forma es usar el complemento JMP para Excel. Haga clic en el botón Preferencias en la cinta JMP y defina la tabla. Seleccione la subtabla en la hoja de cálculo de Excel (incluidas, por ejemplo, las filas 12 al final de los datos y las columnas 1 a 11) y luego haga clic en el botón Exportar en la cinta JMP.

 

En este caso, también puede seleccionar los datos que desea en la hoja de cálculo de Excel, copiarlos, ir a JMP y crear una nueva tabla de datos vacía, y seleccionar Editar> Pegar con nombres de columna (Control-Shift-V en Windows, Comando -Shift-V en Macintosh).

 

No tendrá que limpiar la tabla de datos JMP porque las partes que no desea no se importarán en primer lugar.

Re: deshacerse de columnas nulas

Aquí hay una manera de hacerlo en código.

dt = New Table( "Untitled 3", Add Rows( 10 ), 
 New Column( "Column 1", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [1, 2, 3, 4, 5, 6, 7, 8, 9, 10] ) ),
 New Column( "Column 2", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 3", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 4", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 5", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 6", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 7", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 8", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 9", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 10", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 11", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 12", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., 0, ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 13", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 14", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., 0, ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 15", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., ., ., ., ., ., ., ., ., .] ) ),
 New Column( "Column 16", Numeric, "Continuous", Format( "Best", 12 ),
  Set Values( [., 0, ., ., ., ., ., ., ., .] ) )
);

nc = ncols(dt);
for (i = nc, i >= 12, i--,
 if (column(dt, i)[2] == 0,
  show(i);
  dt << delete columns(i);
 );
);