由单元格

Question

我正在努力使用代码。

所以这就是需要：

我每天都需要定义和复制一个范围，该范围从包含单词＆＃34; patrimonio＆＃34;的单元格开始。并以包含单词＆＃34; total＆＃34;的单元格结尾。所以范围需要选择这两个词之间的所有内容。例如：我有一个工作表，单元格＆＃34; A3＆＃34;包含＆＃34; patrimonio＆＃34;和细胞＆＃34; A20＆＃34;包含单词＆＃34; total＆＃34;，因此范围将是＆＃34; A3：A20＆＃34;，但在其他日期，单词＆＃34; total＆＃34;可以在单元格＆＃34; A14＆＃34;和单词＆＃34; patrimonio＆＃34;将在小区＆＃34; A5＆＃34;，所以范围将是＆＃34; A5：A14＆＃34;。

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

Answer 1

考虑：

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

修改目的地以满足您的需求。