从另一个工作表中的两个单元格的地址连接工作表中两个单元格之间的范围

Question

我在sheet1中有两个单元格，其中包含sheet2中两个单元格的地址。 例如，在sheet1中，cells（1,1）.value的地址为$ A $ 6，而cells（1,2）的地址为$ A $ 100。这两个地址指的是sheet2中的两个单元格。现在我想从sheet2连接$ A $ 6到$ A $ 100之间的范围 我的代码不起作用：

Sub concatenate()

   Set wss = Sheets("sheet1").Range("sheet2.Cells(1, 1).Value : sheet2.Cells(1, 2).Value")
   For Each cel In wss 
   tval = tval & cel.Value
   Next
   Sheets("sheet2").Cells(1, 7).Value = tval

 End Sub

Answer 1

您的语法不正确，因为您将整个参数作为字符串传递，而它应该是变量和字符串。这应该有用，比如说其余的都很好：

Set wss = Sheets("sheet1").Range(sheet2.Cells(1, 1).Value & ":" & sheet2.Cells(1, 2).Value)

<强>解释

这：sheet2.Cells(1,1).Value如果执行则返回"$A$6";但是，如果你像上面那样把它写成一个字符串（即"sheet2.Cells(1,1).Value"），那就完全意味着"sheet2.Cells(1,1).Value"。显然，Range("sheet2.Cells(1,1).Value")不存在。