123456789101112131415161718Dim flag As BooleanFor r = 1 To 7 For c = 8 To Sheets(r).Cells(Rows.Count, 1).End(3).Row flag = False For m = 1 To 16 chaxun = Sheets(r).Cells(c, m) If UCase(chaxun) Like "*" & UCase(UserForm3.TextBox1) & "*" Then n = n + 1 If flag = False Then Sheets(r).Rows(c).Copy Sheets("結果").Rows(n) Sheets(r).Range("F4").Copy Sheets("結果").Range("Q" & n) flag = True End If Exit For End If Next m Next cNext r
新增一個標誌flag，如果flag為真，表示已經複製了。就跳出for
123456789101112131415161718Dim flag As BooleanFor r = 1 To 7 For c = 8 To Sheets(r).Cells(Rows.Count, 1).End(3).Row flag = False For m = 1 To 16 chaxun = Sheets(r).Cells(c, m) If UCase(chaxun) Like "*" & UCase(UserForm3.TextBox1) & "*" Then n = n + 1 If flag = False Then Sheets(r).Rows(c).Copy Sheets("結果").Rows(n) Sheets(r).Range("F4").Copy Sheets("結果").Range("Q" & n) flag = True End If Exit For End If Next m Next cNext r