1

问题：我想在单元格内容旁边或下方找到一个单元格的值，作为工作簿的文本值。

示例：在 Sheet2 中，我有两个随机放置的单元格（假设它的索引未知且总计不是定义的名称）

在此处输入图像描述

我想在总数旁边搜索值“200”并将其放入工作表 2（活动单元格）中。如果有多个单元格包含“总计”一词，请列出所有单元格，如果可能，请输入包含我要查找的单元格的工作表名称。价值 200 表 2

在此处输入图像描述

我的方法： 1. 用户输入

在此处输入图像描述

  1. 转到每个单元格并搜索它。如果在 excel 中搜索整个单元格的限制，这将需要一些时间。所以搜索仅限于 100 列 x 10000 行。

  2. 找到它的索引后，偏移到 1 列得到值

  3. 写出结果 ActiveCell.Value = Search_Value。然后继续搜索其余的工作表。偏移 1 列和 1 行以写入第二个值...

搜索是一个非常困难的概念，我真的不知道如何做搜索部分。请帮忙

4

1 回答 1

3 
With Worksheets(1).Range("a1:a500")
    counter=0
    Set c = .Find("Total", lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            counter=counter+1
            Worksheets(2).range("A1").offset(counter,0)=c.offset(0,1)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

firstaddress保存找到的第一个单元格的位置（因此我们知道何时停止）；firstaddress.offset(0,1)将为您提供您尝试保存的值，因此设置worksheet(2).range("a1").offset(counter,0)将列出它在第二个选项卡上找到的所有值, 从 a1 到它在该范围内找到的任何数量

于 2012-05-03T20:33:58.197 回答