Subscript[\[CurlyEpsilon], \[ScriptR]] =
1 - (\[Omega] - Subscript[\[Omega], \[ScriptC]])/\[Omega]*
\!\(\*SubsuperscriptBox[\(\[Omega]\), \(\[ScriptP]\), \(2\)]\)/((\
\[Omega] - Subscript[\[Omega], \[ScriptC]])^2 + \[Nu]^2) -
I*\[Nu]/\[Omega]*
\!\(\*SubsuperscriptBox[\(\[Omega]\), \(\[ScriptP]\), \(2\)]\)/((\
\[Omega] -
Subscript[\[Omega], \[ScriptC]])^2 + \[Nu]^2); \
(*冷磁化等离子体相对介电常数*)
Subscript[\[Eta], 2] = Sqrt[
Subscript[\[Mu],
0]/(Subscript[\[CurlyEpsilon], 0]*
Subscript[\[CurlyEpsilon], \[ScriptR]])];(*媒质2中的波阻抗*)
Subscript[\[ScriptK],
1] = \[Omega]*Sqrt[
Subscript[\[Mu], 0]*Subscript[\[CurlyEpsilon],
0]];(*介质1中的波数，Subscript[波长\[Lambda], g]=Subscript[\[Lambda], \
0]/Sqrt[Subscript[\[CurlyEpsilon], r]Subscript[\[Mu], \
r]]，波数k=(2\[Pi])/Subscript[\[Lambda], \
g]=(2\[Pi])/Subscript[\[Lambda], 0]Sqrt[Subscript[\[Mu], r]Subscript[\
\[CurlyEpsilon], r]]=\[Omega]*Sqrt[Subscript[\[Mu], 0]*Subscript[\
\[CurlyEpsilon], 0]]*)
Subscript[\[ScriptK], 2] =
Subscript[\[ScriptK], 1]*Sqrt[
Subscript[\[CurlyEpsilon], \[ScriptR]]];(*介质2中的波数*)
Subscript[\[Eta], 3] = Subscript[\[Eta], 1];(*同一种介质，波阻抗同*)
Subscript[\[Theta], 1 \[ScriptT]] =
ArcSin[(Subscript[\[ScriptK], 1]*
Sin[Subscript[\[Theta], 1 \[ScriptI]]])/Subscript[\[ScriptK],
2]];(*斯奈尔折射定律*)
Subscript[\[Theta], 2 \[ScriptI]] = Subscript[\[Theta], 1 \[ScriptT]];
Subscript[\[Theta], 2 \[ScriptT]] =
ArcSin[(Subscript[\[ScriptK], 2]*
Sin[Subscript[\[Theta], 2 \[ScriptI]]])/Subscript[\[ScriptK],
1]];(*斯奈尔折射定律*)
Subscript[\[CapitalGamma], 2] = (
Subscript[\[Eta], 3]*Cos[Subscript[\[Theta], 2 \[ScriptI]]] -
Subscript[\[Eta], 2]*Cos[Subscript[\[Theta], 2 \[ScriptT]]])/(
Subscript[\[Eta], 3]*Cos[Subscript[\[Theta], 2 \[ScriptI]]] +
Subscript[\[Eta], 2]*
Cos[Subscript[\[Theta],
2 \[ScriptT]]]);(*介质2,3的反射系数，如果是TM波，则反射系数为(Subscript[\[Eta], \
2]*Cos[Subscript[\[Theta], 2\[ScriptI]]]-Subscript[\[Eta], \
3]*Cos[Subscript[\[Theta], 2\[ScriptT]]])/(Subscript[\[Eta], \
2]*Cos[Subscript[\[Theta], 2\[ScriptI]]]+Subscript[\[Eta], \
3]*Cos[Subscript[\[Theta], 2\[ScriptT]]])*)
Subscript[\[Tau], 2] =
Subscript[\[Eta], 3]/Subscript[\[Eta],
2]*(1 - Subscript[\[CapitalGamma], 2]);(*介质2,3的透射系数*)
Subscript[\[Eta], \[ScriptE]\[ScriptF]] =
Subscript[\[Eta], 2]*(
1 + Subscript[\[CapitalGamma], 2]*
E^(-I*2*Subscript[\[ScriptK], 2]*\[ScriptD]*
Cos[Subscript[\[Theta], 2 \[ScriptI]]]))/(
1 - Subscript[\[CapitalGamma], 2]*
E^(-I*2*Subscript[\[ScriptK], 2]*\[ScriptD]*
Cos[Subscript[\[Theta], 2 \[ScriptI]]]));
Subscript[\[CapitalGamma], 1] = (
Subscript[\[Eta], \[ScriptE]\[ScriptF]]*
Cos[Subscript[\[Theta], 1 \[ScriptI]]] -
Subscript[\[Eta], 1]*Cos[Subscript[\[Theta], 1 \[ScriptT]]])/(
Subscript[\[Eta], \[ScriptE]\[ScriptF]]*
Cos[Subscript[\[Theta], 1 \[ScriptI]]] +
Subscript[\[Eta], 1]*
Cos[Subscript[\[Theta], 1 \[ScriptT]]]);
Subscript[\[Tau],
1] = ((1 + Subscript[\[CapitalGamma], 1])*
E^(-I*Subscript[\[ScriptK], 2]*\[ScriptD]*
Cos[Subscript[\[Theta], 2 \[ScriptI]]]))/(
1 + Subscript[\[CapitalGamma], 2]*
E^(-I*2*Subscript[\[ScriptK], 2]*\[ScriptD]*
Cos[Subscript[\[Theta], 2 \[ScriptI]]]));
\[CapitalGamma] = Subscript[\[CapitalGamma], 1];
\[Tau] = Subscript[\[Tau], 1]*Subscript[\[Tau], 2];
R = (Abs[\[CapitalGamma]])^2;
T = (Abs[\[Tau]])^2;
\[Alpha] = -10*Log10[T];
\[Alpha]1 = \[Alpha] /. {B -> 1.0};
\[Alpha]2 = \[Alpha] /. {B -> 3.0};
\[Alpha]3 = \[Alpha] /. {B -> 5.0};
\[Alpha]4 = \[Alpha] /. {B -> 7.0};
(*Plot[{\[Alpha]1,\[Alpha]2,\[Alpha]3,\[Alpha]4},{\[ScriptF],0,8 \
10^10},PlotRange\[Rule]{0,130},AxesLabel\[Rule]{"\[ScriptF]/Hz","\
\[Alpha]/dB"},PlotStyle\[Rule]{Directive[GrayLevel[0],Dashing[{0,\
Small}]],Directive[RGBColor[1,0,0],Dashing[{Small,Small}]],Directive[\
RGBColor[0.5`,0,0.5`],Dashing[{0,Small,Small,Small}]],Directive[\
RGBColor[0,0,1],AbsoluteDashing]},PlotLegends\[Rule]{"B=0T","B=0.8T",\
"B=1.2T","B=1.6T"}]*)
Plot[{\[Alpha]1, \[Alpha]2, \[Alpha]3, \[Alpha]4}, {Subscript[\
\[ScriptF], \[ScriptE]\[ScriptN]], 0, 3*10^12},

一个图里四条线，把公式里一个变量赋予四个不同的值得到的，横坐标都一样，想导出到excel四列不同的纵轴值和一列横轴值，代码怎么写

1. 你的代码不全。
2. 看看Table和Export的自带帮助。
3. 更多内容参看吧里的《导入导出杂谈》那帖。