去其他表裏查找數據，並更新原表數據

 已有數據

想在課程名後加上“回車教師1+教師2+教師3 ”

 

Sub getdata()
    Dim tmp As String
    Dim tmpname As String
    Dim x%, y%, i%, flag%, ishav%
    n = 2 '新表數據起點行數
    r = 41 '原始數據右邊界
    Dim row%
    flag = 0
    ishav = 0
    i = 2
    row = 14 '原表數據行數
     For y = 2 To r
        flag = 0
        ishav = 0
        tmpname = ""
        tmp = Sheet1.Cells(row, y)
        For i = 2 To 160
            If Sheet2.Cells(i, 1) = "高三年級" And Sheet2.Cells(i, 2) = tmp Then
                If flag = 0 Then
                 tmpname = tmpname & Sheet2.Cells(i, 3)
                 flag = 1
                 ishav = 1
                Else
                     tmpname = tmpname & "+" & Sheet2.Cells(i, 3)
                 End If
            End If
         Next
         If ishav = 1 Then
            Sheet1.Cells(row, y) = Sheet1.Cells(row, y) & Chr(10) & tmpname
         End If
    Next
End Sub