範圍由單元格中包含的值定義

Question

我正在努力與代碼。

所以這是一個需要：

每天我都需要定義和複製一個範圍，它始於包含單詞「帕特里莫尼奧」，並在包含單詞「總」的單元結束的細胞。所以範圍需要選擇這兩個詞之間的所有內容。例如：我有一張工作表，單元格「A3」包含單詞「patrimonio」，單元格「A20」包含單詞「total」，因此範圍將爲「A3：A20」，但在其他日期單詞「total」可以在單元格「A14」處，單詞「patrimonio」將在單元格「A5」處，因此範圍將是「A5：A14」。

如何根據單詞在單元格中編寫代碼來定義範圍？

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

修改目標，以滿足您的需求。