返回行2行之间的值，通过FIND带有特定句子

Question

我在工作表1的A栏中有此内容，前后还有很多其他文字：

我想用以下命令复制所有在单元格之间的内容：

Sponsor de l'Indice Marché Site Internet

并带有：

DEFINITIONS APPLICABLES AUX(EVENTUELS), AU

在B8工作表2中：

这是我的伪代码（不适用于VBA）：

Dim x As Long
    x = 1
    Do While Worksheets("Adobe Reader").Range("A1:A500").Find("Sponsor de l'Indice March? Site Internet").Row != Worksheets("Sheet1").Range("A1:A500").Find("DEFINITIONS APPLICABLES AUX(EVENTUELS), AU").Row
Set SJ = Worksheets("Sheet1").Range("A1:A500").Find("Nom de l'Indice Code Bloomberg Sponsor de l'Indice March? Site Internet")
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0).Copy
Worksheets("Sheet2").Range("B8").Offset(ColumnOffset:=x - 1).Paste

Answer 1

您可以尝试以下方法：

#!/usr/bin/env python3
# -*- coding: utf-8 -*-

import pydvd_utils

try:
    pydvd_utils.query_all()
except Exception as e:
    print(e)