查找变量和存储值

Question

我需要找到一个文本字符串并将项目名称存储在文本字符串下面以放入工作表中的其他位置

示例我想找到＆＃34;描述＆＃34;并存储它下面的所有项目以便稍后在宏

中使用

并将它们放在B1中，例如

这里是我尝试使用的代码，但我不知道如何存储有效范围

function countVowels(str){
    return (str.match(/[aeiou]/gi) == null) ? 0 : str.match(/[aeiou]/gi).length;        
}

Answer 1

Sub test()
Dim rng As Range

Set rng = ActiveSheet.Cells.Find(What:="Description", After:=ActiveSheet.Range("A1"), LookIn:=xlValues, _
  LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
  MatchCase:=False, SearchFormat:=False)

If Not rng Is Nothing Then
    Set rng = ActiveSheet.Range(rng.Offset(1, 0), rng.End(xlDown))
    ActiveSheet.Range("B1").Resize(rng.Rows, 1).Value = rng.Value 'put stored text starting in B1
End If



End Sub