将单元格中的值替换为单元格引用

Question

我是VBA的初学者，我正在尝试修改其他人编写的代码 我想将以下行中的C22替换为存储在单元格B19中的变量值。

代码：

Set Emp = Sheets("programme summary").Range("C22:C" & LR)

C22中的值类似于“B12”。任何帮助将不胜感激。 感谢

Answer 1

如果您希望将范围Emp设置为从单元格B19的引用单元格开始，您可以使用类似

的内容

Set Emp = Sheets("programme summary").Range(Sheets("programme summary").Range("B19").Value & ":C" & LR)

说明：

语句的Sheets("programme summary").Range("B19").Value部分检索＆＃34;程序摘要＆＃34;的单元格B19中的值。 sheet（可能是"C32"），然后通过将其与":C" & LR生成的字符串连接形成范围，给出"C32:C789"之类的内容（假设LR包含价值789）。

这个新字符串用于语句的其余部分，实际上是

Set Emp = Sheets("programme summary").Range("C32:C789")