1个文件中的5个独立音频通道(5 individual audio channels in 1 file)

 你想要做的是做一个循环，直到用户选择在输入框中点击取消停止。 要启动循环，请设置循环检查变量，“continue”等于在询问用户是否要继续的框上单击“是”的结果。 
 
 然后，在执行代码后，询问用户是否要添加另一个单词。 如果没有，循环将结束。 如果是这样，循环将继续并执行另一个单词。 
 
 这是一个开始...... 
 
Dim Continue As Long
Dim findWhat As String
Dim LastLine As Long
Dim toCopy As Boolean
Dim cell As Range
Dim i As Long
Dim j As Long
Dim newsheet As Worksheet

s = 2

Continue = vbYes 'initialize loop variable
    Do While Continue = vbYes 'keep getting more use input until they state they do not want to continue

        findWhat = CStr(InputBox("What word would you like to search for today?"))
        lastLine = ActiveSheet.UsedRange.Rows.Count
        If findWhat = "" Then Exit Sub
        j = 1
    For i = 1 To lastLine
        For Each cell In Range("BU1").Offset(i - 1, 0)
            If InStr(cell.Text, findWhat) <> 0 Then
                toCopy = True
            End If
        Next
        If toCopy = True Then
            Set newsheet = activeworkbook.sheets.add
            newsheet.name = findWhat
            Rows(i).Copy Destination:=newsheet.Rows(j)
            j = j + 1
        End If
        Set newsheet = Nothing
        toCopy = False
    Next i
    s = s + 1
    'find out if user wishes to continue.
    Continue = MsgBox(((j - 1) & " results were copied, do you have more keywords to enter?"), vbYesNo + vbQuestion)
Loop

What you want to do is make a loop that will continue until the user chooses to stop by hitting cancel in your input box. To start the loop, set the loop check variable, "continue" to be equal to the result of clicking 'yes' on the box that asks if the user wants to continue.
 
Then, after executing the code, ask the user if they wish to add another word. If not, the loop will end. If so, the loop will continue and do another word.
 
Here's a start....
 
Dim Continue As Long
Dim findWhat As String
Dim LastLine As Long
Dim toCopy As Boolean
Dim cell As Range
Dim i As Long
Dim j As Long
Dim newsheet As Worksheet

s = 2

Continue = vbYes 'initialize loop variable
    Do While Continue = vbYes 'keep getting more use input until they state they do not want to continue

        findWhat = CStr(InputBox("What word would you like to search for today?"))
        lastLine = ActiveSheet.UsedRange.Rows.Count
        If findWhat = "" Then Exit Sub
        j = 1
    For i = 1 To lastLine
        For Each cell In Range("BU1").Offset(i - 1, 0)
            If InStr(cell.Text, findWhat) <> 0 Then
                toCopy = True
            End If
        Next
        If toCopy = True Then
            Set newsheet = activeworkbook.sheets.add
            newsheet.name = findWhat
            Rows(i).Copy Destination:=newsheet.Rows(j)
            j = j + 1
        End If
        Set newsheet = Nothing
        toCopy = False
    Next i
    s = s + 1
    'find out if user wishes to continue.
    Continue = MsgBox(((j - 1) & " results were copied, do you have more keywords to enter?"), vbYesNo + vbQuestion)
Loop