Clear["Global`*"]
data1 = Import["C:\\Users\\vincen\\Desktop\\222.xlsx"]
data = Part[data1, 1]
start = "S3359";
end = "S1828";
P = Table[0, 100];
T = Table[0, 100];
k = 1;
For[i = 1, i <= Length[data], i++,
For[j = 1, j <= Length[Part[data, i]], j++,
If[start == Part[Part[data, i], j], P[k] = i; T[k] = j; k++]]]
Q = Table[0, 100];
U = Table[0, 100];
r = 1;
For[i = 1, i <= Length[data], i++,
For[j = 1, j <= Length[Part[data, i]], j++,
If[end == Part[Part[data, i], j], Q[r] = i; U[r] = j; r++]]]
For[k = 1, P[k] != 0, k++,
For[r = 1, Q[r] != 0, r++,
For[i = 1, i <= Length[Part[data, P[k]]], i++,
For[j = 1, j <= Length[Part[data, Q[r]]], j++,
If[(Part[Part[data, P[k]], i] ==
Part[Part[data, Q[r]], j]) && (T[k] < i) && (U[r] > j),
Print[Part[Part[data, P[k]], 1]]]]]]]

各位大佬不用看了，已经解决了。萌新如果遇到相同的问题，是因为调用非Array元素的形式为f[x],调用其他（如代码中的Table）元素的形式为f[[x]]。