Vba 指向以字符串格式给定的单元格地址

我在excel工作表中给出了单元格地址，并希望在其他excel工作表中打印一个特定的公式，参考上一工作表中给出的单元格地址。请为此建议vba函数。单元格地址为字符串格式，因此需要从字符串中提取相应的行号和列号。vba中是否有此功能

下面的代码将检查sheet1列A中的最后一行，并尝试获取列A中奇数行中的值，并以偶数行号打印结果

Sub testt1()

Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")


Dim lastRow As Long

lastRow = ws1.Range("A" & Rows.Count).End(xlUp).Row


On Error Resume Next


For i = 1 To lastRow

t1 = ws1.Cells(i, 1).Value


t2 = ws2.Range(t1).Value

ws1.Cells(i + 1, 1).Value = t2

i = i + 1

Next


End Sub

---

我不确定我是否理解正确，但Range方法接受字符串输入。例如，这将起到以下作用：

Worksheets("Sheet2").Range(Worksheets("Sheet1").Range("A1").Value)=Worksheets("Sheet1").Range("A2").Value

同样的代码，看起来更容易：

Dim strLocation As String
strLocation = Worksheets("Sheet1").Range("A1").Value
Worksheets("Sheet2").Range(strLocation) = Worksheets("Sheet1").Range("A2").Value

---

这就是你想要做的吗？你需要更多的帮助来理解它吗？

举个字符串的例子会有所帮助。第1页A1单元格中提到了G2（文本格式）。我想转到第2页的G2单元格，打印第1页的A2单元格的值。您能告诉我您将获得哪种格式的输入吗？我是指单元格地址。我想我还没有解释清楚这个问题。第1页A1单元格中提到了“G2”（文本格式）。我想转到第2页的G2单元格并打印第1页的A2单元格的值。基本上，我想运行一个宏，因为在表1中，我有几个以文本格式给出的单元格地址，我想在表2的单元格地址中打印某些值，这些值等于表1中给出的单元格地址（以文本格式）。如果表1包含A1=G2，则您需要转到表2 G2单元格并在表2 G2中打印表1 A2值。我说得对吗？那么您的值将只显示在一列中？像A1、A3、A5一样一个接一个地打印活页2中A2、A4、A6的值。我可以使用范围功能打印所需的值。谢谢newjenn。