Dear all,
I have one file (see below) with more then 100 columns and 2500 rows, and need only column which has GType in label with Alphabets, please help me to remove these columns with numbers.
input file is

         n.201.GType    n-201.Theta    n-201.R   n_1.GType    n_1.Theta     n_1.R          n_7.GType      n_7.Theta        n_7.R           
BB                             0.823115       1.23659                   BB       0.791365      1.274946                  AB          0.441334         1.666898           
AA            0.02399     1.526078                               AA        0.021785     1.578031                 AA          0.013456        1.527924

         n_201.GType   n_1.GType   n_7.GType        
BB               BB         AB 
          AA               AA         AA

Is this an excel file or a flat file?

If a flat file, what separates the columns? Tabs?

Please try posting your data again, your lack of code tags and attempts at spacing without them have thrown your table well out of whack.

try:

awk '{for (i=1; i<=NF; i++) if ($i ~ /GType/)c[i]=i;} {for (i=1; i<=NF; i++) $i=(c[i])?$i:"";}1' infile

awk '{for (i=1;i<=NF;i++) if ($i~/GType/||$i~/^[a-zA-Z]*$/) printf $i "\t";printf RS}' infile

n.201.GType     n_1.GType       n_7.GType
BB      BB      AB
AA      AA      AA

Dear all,

i am sorry, but the both commands are not working for my file,
should I use them in Linux, as I tried in cygwin,
and Corona, yes I have this file in excel as well as in a tab delimited text file
waiting for your help
my file name is data table.txt or data table.xlsx
Regards

---------- Post updated at 10:19 AM ---------- Previous update was at 09:55 AM ----------

Dear Corona, here I upload my text delimited file for your kind consideration, (with in the code) only seven columns, first row is label and first column is names of samples

Name    n_410.GType    n_410.Theta    n_410.R    n_14.GType    n_014.Theta    n_14.R
B-80011558140-269    BB    0.8585083    1.182597    NC    0.04133479    0.3816845    AB    0.5569273    1.312853    BB    0.8443609    1.156271
B-80011565932-735    AA    0.02112507    1.547318    AA    0.02052359    1.452008    AA    0.02342339    1.444604    AA    0.01875894    1.540271
B-80011565932-883    BB    0.9910369    1.219364    BB    0.9829392    1.228494    BB    0.9917964    1.207549    BB    0.9896955    1.228145
B-80011568019-475    BB    0.9941319    0.8715777    BB    0.9845733    0.8617675    BB    0.9956517    0.8734978    NC    1.2038809    1.890736

awk '{for (i=1;i<=NF;i++) if ($i~/GType/||$i~/^[a-zA-Z]*$/) printf $i "\t";printf RS}' Data_Table.txt>Gtype.txt

let me guess.

awk 'NR==1{for (i=1;i<=NF;i++) if ($i~/GType/) a[i]}
     {printf $1 FS; for (i=2;i<=NF;i++) if (i in a) printf $i FS;printf RS}' Data_Table.txt

Name n_410.GType n_14.GType
B-80011558140-269 BB NC
B-80011565932-735 AA AA
B-80011565932-883 BB BB
B-80011568019-475 BB BB

I used following command

awk 'NR==1{for (i=1;i<=NF;i++) if ($i~/GType/) a[i]}{printf $1 FS; for (i=2;i<=NF;i++) if (i in a) printf $i FS;printf RS}' Data_Table.txt >Gtypes.txt