excel把竖排试题转成横排

excel中竖排的试题转换成横排,题目数量较多
"LTE/EPC网络实现语音业务的解决方案包括()
A.CSfallback

B.多模双待

C.SRVCC

D.其他选项均正确"
转换成
"LTE/EPC网络实现语音业务的解决方案包括()A.CSfallback B.多模双待 C.SRVCC D.其他选项均正确

对于Excel的业务用户来说,可以用公式处理:

Step 1:对竖排问题的初始表Sheet1做清理,除去空白行(可以使用Filter筛选,选中空行后一次性删除),初始表页保持如下格式:
问题1. xxxxxxxx
A.xxxx
B.xxxx
C.xxxx
D.xxxx
问题2. xxxxxxxx
A.xxxx
B.xxxx
C.xxxx
问题3. xxxxxxxx
A.xxxx
B.xxxx
C.xxxx
D.xxxx
E.xxxx
..._

Step 2: 新开一个空白的表页Sheet2,在第一行的各列,分别写如下公式:
_A列: "=IF(OR(mid(trim(Sheet1.A1,1,2)="A.", mid(trim(Sheet1.A1,1,2)="B.", mid(trim(Sheet1.A1,1,2)="C.", mid(trim(Sheet1.A1,1,2)="D.",mid(trim(Sheet1.A1,1,2)="E."), “”, Sheet1.A1)

_B列: "=IF(mid(trim(Sheet1.A2,1,2)="A.", Sheet1.A2, “”)
_C列: "=IF(mid(trim(Sheet1.A3,1,2)="B.", Sheet1.A3, “”)
_D列: "=IF(mid(trim(Sheet1.A4,1,2)="C.", Sheet1.A4, “”)
_E列: "=IF(mid(trim(Sheet1.A5,1,2)="D.", Sheet1.A5, “”)
_F列: "=IF(mid(trim(Sheet1.A6,1,2)="E.", Sheet1.A6, “”)
_G列: "=IF(mid(trim(Sheet1.A7,1,2)="F.", Sheet1.A7, “”)

(* 在A列公式里,OR函数中比较项的多少取决于题目中最多的答案数;公式要写到第几列也取决于最多的答案数)

Step 3: 将第一行的公式在Sheet2中往下复制一直到和Sheet1对应的行数

Step 4: 后期整理, 将Sheet2的内容Copy, Paste as Value, 然后再清理空行

可以用vba宏实现,假如你的题目在a1~a4里面, Range("B1") = Range("A1") + Range("A2") + Range("A3") + Range("A4")

这样就放在一行了。
采纳本回答留下你的email,给你一个完整代码