主题：[求助] 求助改写一段代码

Dim ltx1(),ltx2(),ltx3(),ltx4(),ltx5() As String
ltx1 = Vars("第一列题型").Split(",")
ltx2 = Vars("第二列题型").Split(",")
ltx3 = Vars("第三列题型").Split(",")
ltx4 = Vars("第四列题型").Split(",")
ltx5 = Vars("第五列题型").Split(",")

Dim ltxs()() As String = {ltx1, ltx2, ltx3, ltx4, ltx5}
For Each ltx As String() In ltxs
   
Next