范围由单元格中包含的值定义

所以这是一个需要：

每天我都需要定义和复制一个范围，它始于包含单词“帕特里莫尼奥”，并在包含单词“总”的单元结束的细胞。所以范围需要选择这两个词之间的所有内容。例如：我有一张工作表，单元格“A3”包含单词“patrimonio”，单元格“A20”包含单词“total”，因此范围将为“A3：A20”，但在其他日期单词“total”可以在单元格“A14”处，单词“patrimonio”将在单元格“A5”处，因此范围将是“A5：A14”。

如何根据单词在单元格中编写代码来定义范围？

来源

2016-04-16 Gustavo

你已经尝试过一些东西吗？如果是，请发布您的代码。 – ehh

你想VBA或公式也可以为你工作吗？你可以使用公式得到这个... – Spidey

考虑：

Sub FindDemo() 
    Dim alpha As Range, beta As Range, rCopy As Range 
    Dim Dest As Range 

    Set Dest = Range("Z100") 
    Set alpha = Cells.Find(What:="patrimonio", After:=Cells(1, 1)) 
    Set beta = Cells.Find(What:="Total", After:=alpha) 
    Set rCopy = Range(alpha, beta) 

    rCopy.Copy Dest 
End Sub

一旦块被发现的，它被复制到Z100

修改目标，以满足您的需求。

来源

2016-04-16 19:10:05

范围由单元格中包含的值定义

回答

相关问题