As an alternative, you could do something like this:
in:=sampleData =
SemanticImport["ExampleData/elements.xls", Automatic,
"NamedColumns"];
in:=Select[#, NumberQ] & /@ Values[sampleData];
in:=Mean[#] & /@ %
out:={5., Mean[{}], Mean[{}], 10.3094}
This and the previous answer may be equally convenient if your goal is to get a single result for each consecutive column. But the resulting output will be formatted as a list, rather than a table.
On the other hand, if you want to operate on specific columns in an arbitrary order, you could also do this:
in:=cols = Keys[sampleData];
in:=KeyTake[sampleData, {cols[[1]], cols[[4]]}];
in:=Select[#, NumberQ] & /@ Values[%];
in:=Mean[#] & /@ %
out:={5., 10.3094}