
전체 글
VBA 엑셀 빈칸 뚫기 문제 만드는 파일 코드1
문제 만드는 코드 Sub makeQ() Set shtP = Worksheets("Question") part = shtP.Cells(1, "F").Value & "강" Set shtQ = Worksheets(part) Dim regex As Object Set regex = CreateObject("VBScript.RegExp") qLen = shtQ.Cells(Rows.Count, 1).End(xlUp).Row Dim qWords() As Variant qWords = shtQ.Range(shtQ.Cells(1, "B"), shtQ.Cells(qLen, "B")).Value2 For i = 1 To qLen ans = shtQ.Cells(i, "A").Value qLensub = shtQ.Cells(i..