ListPlot3D[RandomReal[{0, 10}, {50, 3}], InterpolationOrder -> 0, Filling -> Bottom, Mesh -> None, ColorFunction -> "SouthwestColors"]