ListLinePlot[
Table[{(79.58332*n^(5/3) + 1216.733333*n^3 -
256.025*n^2)*1.6*10^33, (939.6*(n) + 119.374992*(n)^(5/3) +
608.366666*(n)^3 - 256.025*(n)^2)*1.6*10^33}, {n, 0.00110038,
3.7743, 1/10000}],
PlotRange -> {{10^(30), 10^(38)}, {10^(33), 10^(38)}}, Frame -> True,
FrameLabel -> {"p", "\[Epsilon]"},
FrameStyle -> {{Black, Black}, {Black, Black}}, PlotStyle -> Blue]

我不知道你所说的“不管用”指的是啥，不过请注意10^30相对于10^38差不多就是0，而PlotRange一惯不会对刻度有
严格的影响。（PlotRange的帮助里可以找到更显眼的例子。）想要明确设定刻度请用FrameTicks选项。