求助Excel大神

飘舞的哭泣

若A1、A2为优生，B1、B2为中等生，C1、C2为后进生
需要实现的是从对应的评语中选一句填到对应的期末评语单元格中（只是举个例子）

gdw831001

一张工作薄解决的事，为什么要这么多工作薄，{一张工作薄内建三张表，分别是一张成绩表，一张评语表，一张模版}

鄂龙蒙

1. Sub 多薄填写()
   
2.     Dim wb As Workbook
   
3.     Dim mypath$, myname$
   
4.     Dim d As Object, a, sa
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7.     mypath = ThisWorkbook.Path & ""
   
8.     myname = Dir(mypath & "*.xlsx")
   
9.     Do While myname <> ""
   
10.         If myname <> ThisWorkbook.Name Then
    
11.             Set wb = GetObject(mypath & myname)
    
12.             If Left(wb.Name, 1) = "A" Then
    
13.                 a = Application.WorksheetFunction.RandBetween(1, 5)
    
14.                 sa = Sheet1.Cells(a + 1, 1)
    
15.             ElseIf Left(wb.Name, 1) = "B" Then
    
16.                 a = Application.WorksheetFunction.RandBetween(1, 4)
    
17.                 sa = Sheet1.Cells(a + 9, 1)
    
18.             ElseIf Left(wb.Name, 1) = "C" Then
    
19.                 a = Application.WorksheetFunction.RandBetween(1, 4)
    
20.                 sa = Sheet1.Cells(a + 17, 1)
    
21.             End If
    
22.             Windows(wb.Name).Visible = True
    
23.             With wb
    
24.                 .Worksheets(1).[B8] = "    " & sa
    
25.                 .Save
    
26.                 .Close
    
27.             End With
    
28.         End If
    
29.         myname = Dir
    
30.     Loop
    
31.     Application.ScreenUpdating = True
    
32.     MsgBox "数据填写完毕！"
    
33. End Sub

复制代码