求助，复制内容后再原内容里添加需要的文字

clyfd

为了导入题库，需要转换原格式，希望老师帮助 数据内容转换，谢谢老师.rar (15.04 KB, 下载次数: 3)

2019-9-7 10:48 上传

点击文件名下载附件

eqzh

“问题“=B2&"("&H2&")"&"[选择题]"，下拉
答案区域=IF(C2="","",C$1&C2)，右拉下拉

clyfd

Sub 按钮2_Click()

For i = 2 To [B65536].End(xlUp).Row
If Cells(i, 1).Value <> "" Then _
Cells(i, 9) = Cells(i, 2) & Cells(i, 8) & "[选择题]"
Next i

For i = 2 To [C65536].End(xlUp).Row
If Cells(i, 3).Value <> "" Then _
Cells(i, 10) = "A" & Cells(i, 3)
Next i

For i = 2 To [D65536].End(xlUp).Row
If Cells(i, 4).Value <> "" Then _
Cells(i, 11) = "B" & Cells(i, 4)
Next i

For i = 2 To [E65536].End(xlUp).Row
If Cells(i, 5).Value <> "" Then _
Cells(i, 12) = "C" & Cells(i, 5)
Next i

For i = 2 To [F65536].End(xlUp).Row
If Cells(i, 6).Value <> "" Then _
Cells(i, 13) = "D" & Cells(i, 6)
Next i

For i = 2 To [G65536].End(xlUp).Row
If Cells(i, 7).Value <> "" Then _
Cells(i, 14) = "E" & Cells(i, 7)
Next i
End Sub
写出来了，就是看着有点笨啊

wcs98

数组加双循环试试

clyfd

wcs98 发表于 2019-9-7 16:42
数组加双循环试试

谢谢老师，不会啊