帮我用VBA写以下代码：Excel表A1，A2，A3有值，遍历它们并依次取出

Sub TraverseCells()
Dim cell As Range
For Each cell In Range("A1:A3")
MsgBox cell.Value
Next cell
End Sub

这是一个简单的用VBA语言实现遍历Excel单元格的代码。当你运行这个宏时，它会依次输出单元格A1、A2、A3的值。

相关问题

VBA写一段代码，将A1、A2、A3三个单元格的内容用”and"连接，点击按钮时， 打印到单元格A4中。

在VBA中，你可以创建一个用户form，并在其中添加一个commandbutton。当按钮被点击时，会触发一个sub过程，用于获取并连接A1、A2和A3单元格的内容。下面是一个简单的示例代码：

Private Sub CommandButton1_Click()
    Dim cellValues() As String
    cellValues = Array(A1.Value, A2.Value, A3.Value) ' 获取单元格值并存储为数组

    If UBound(cellValues) > 0 Then ' 检查数组是否非空
        Dim result As String
        For i = 0 To UBound(cellValues)
            If i <> UBound(cellValues) - 1 Then ' 如果不是最后一个元素，加"and"
                result = result & cellValues(i) & " and "
            Else ' 如果是最后一个元素，去掉最后的"and"
                result = result & cellValues(i)
            End If
        Next i
        
        A4.Value = result ' 将结果写入A4单元格
    End If
End Sub

这个代码首先创建了一个字符串数组，包含A1、A2和A3的值。然后遍历数组，每两个元素之间加上"and"，并将最终结果写入A4单元格。

请写一段VBA代码，帮我解决以下问题：遍历桌面文件夹名为“新建文件夹检索”中的所有表格的所有sheet，检索字符“特瑞普利单抗”，并统计字符“特瑞普利单抗”出现的次数，将统计结果写入到一个新的exl文档中。注意，“特瑞普利单抗”可能是单元格中数据的一部分字符，这样也计入次数。结果的书写方式是每个sheet分别列出。

以下是代码实现：

Sub SearchAndCount()
    
    Dim folderPath As String
    Dim fileName As String
    Dim sheetName As String
    Dim searchText As String
    Dim totalCount As Integer
    Dim currentCount As Integer
    Dim newWorkbook As Workbook
    Dim currentWorkbook As Workbook
    Dim currentWorksheet As Worksheet
    
    '设置文件夹路径和搜索文本
    folderPath = Environ("USERPROFILE") & "\Desktop\新建文件夹检索\"
    searchText = "特瑞普利单抗"
    
    '创建新的工作簿
    Set newWorkbook = Workbooks.Add
    newWorkbook.SaveAs Environ("USERPROFILE") & "\Desktop\搜索结果.xlsx"
    
    '遍历文件夹中的所有Excel文件
    fileName = Dir(folderPath & "*.xlsx")
    Do While fileName <> ""
        
        '打开当前Excel文件
        Set currentWorkbook = Workbooks.Open(folderPath & fileName)
        
        '遍历当前Excel文件中的所有sheet
        For Each currentWorksheet In currentWorkbook.Worksheets
            
            currentCount = 0
            
            '在当前sheet中搜索文本
            For Each cell In currentWorksheet.UsedRange.Cells
                If InStr(1, cell.Value, searchText) > 0 Then
                    currentCount = currentCount + 1
                End If
            Next cell
            
            '将搜索结果写入新工作簿
            If currentCount > 0 Then
                totalCount = totalCount + currentCount
                newWorkbook.Worksheets.Add
                newWorkbook.ActiveSheet.Name = currentWorkbook.Name & "-" & currentWorksheet.Name
                newWorkbook.ActiveSheet.Range("A1") = "搜索结果"
                newWorkbook.ActiveSheet.Range("A2") = "文件名"
                newWorkbook.ActiveSheet.Range("B2") = "sheet名"
                newWorkbook.ActiveSheet.Range("C2") = "出现次数"
                newWorkbook.ActiveSheet.Range("A3") = fileName
                newWorkbook.ActiveSheet.Range("B3") = currentWorksheet.Name
                newWorkbook.ActiveSheet.Range("C3") = currentCount
            End If
            
        Next currentWorksheet
        
        '关闭当前Excel文件
        currentWorkbook.Close False
        
        '获取下一个Excel文件名
        fileName = Dir()
        
    Loop
    
    '将搜索结果写入新工作簿的总表
    newWorkbook.Worksheets.Add
    newWorkbook.ActiveSheet.Name = "总表"
    newWorkbook.ActiveSheet.Range("A1") = "总搜索结果"
    newWorkbook.ActiveSheet.Range("A2") = "搜索文本"
    newWorkbook.ActiveSheet.Range("B2") = "出现次数"
    newWorkbook.ActiveSheet.Range("A3") = searchText
    newWorkbook.ActiveSheet.Range("B3") = totalCount
    
    '保存并关闭新工作簿
    newWorkbook.Save
    newWorkbook.Close
    
End Sub

这段代码会搜索指定文件夹中的所有Excel文件，遍历每个Excel文件中的所有sheet，并在每个sheet中搜索指定文本。如果文本出现在某个单元格中，则计入搜索结果中。搜索结果会被写入一个新的Excel文件中，每个sheet的搜索结果会单独列出。最后，总的搜索结果会被写入新工作簿的总表中。