方法和数据成员未找到：ThisWorkbookRangeA & iValue

这个错误通常是由于在该对象中找不到指定的方法或数据成员引起的。

在这种情况下，可能是因为ThisWorkbook对象没有Range方法或Value数据成员。

你可以尝试更改代码中的语法或使用其他方法来访问所需的数据成员。

例如，你可以尝试使用以下代码：

Dim wb As Workbook Set wb = ThisWorkbook Dim ws As Worksheet Set ws = wb.Worksheets("Sheet1") Dim value As Variant value = ws.Range("A" & i).Value

这将首先将ThisWorkbook对象分配给一个Workbook变量，然后使用Worksheets属性获取所需的Worksheet对象，最后使用Range方法和Value属性获取单元格的值。