时间戳

首页 > 解决方案 > Excel VBA。搜索是否包含来自多个工作表的特定文本的单元格，并且仅搜索找到的单元格的某些部分

excel - Excel VBA。搜索是否包含来自多个工作表的特定文本的单元格，并且仅搜索找到的单元格的某些部分

问题描述

感谢您花时间看看我面临的问题。. 已经搜索和测试了很多，但仍然没有设法找出问题所在。

现在我不知道出了什么问题。

以下是当前代码

这是要搜索的工作表

红色区域是输入型号，价格来自搜索结果

Sub Search()
    Dim LR As Long, i2 As Long
    totalsheets = Worksheets.Count
    
    For i = 1 To totalsheets
        If Worksheets(i).Name <> "Main" Then
        lastrow = Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row
            For j = 2 To lastrow
                If UCase(Worksheets(i).Range("C" & j).Value) Like "*A1-1-35-01*" Then
                Worksheets("Main").Activate
                Worksheets("Main").Range(k, 4).Value = Worksheets("Main").Range("A", j)
            lastrow = Worksheets("Main").Cells(Rows.Count, 1).End(xlUp).Row
                    

                End If
            Next
        End If
    Next
End Sub

标签： excelvba

解决方案

推荐阅读