BVA将excel题库转换为word版
'单选题有答案相关代码:Sub 单选有答案() Dim WdApp As Word.Application Dim owd As Word.Document Dim i, j As Integer Dim Rcount, Colcount As Integer Rcount = Sheets(1).UsedRange.Rows.Count Colc...