发布网友 发布时间:2022-09-30 23:03
共3个回答
热心网友 时间:2024-11-24 19:41
如果是让非正确答案隐藏,可以考虑条件格式,活动单元格C2,条件格式公式
=ISERROR(FIND(CHAR(64+COLUMN(A1)),$I2))(C:G列是都有内容的)
将文字颜色设置为与背景色相同。
热心网友 时间:2024-11-24 19:41
如果公式处理困难,可以手动处理,筛选A,删除BCD答案,筛选B,删除ACD答案,筛选AB,删除cD答案,……,几分钟就可以搞定。热心网友 时间:2024-11-24 19:42
建议用代码处理。追问可以教一下吗?追答Sub 选择题将答案拷贝出去()
'使用前请做好备份啊
Dim i&, j&, St$, k&
For i = 1 To 1 '起止行号请自行更改,最好在非正式处先尝试。
St = Cells(i, "I")
For j = 1 To Len(St)
k = Asc(Mid(St, j, 1)) Mod 16 '将字母转化成列号
Cells(i, k + 2).Copy Cells(i, j + 9)
Next j
Next i
End Sub