我已经编写了以下代码作为更大的子例程的一部分，用于在活动单元格中进行特定选择时设置相对于活动单元格的单元格值。
ActiveCell.Offset(0, 5).Value = "CLV 7"
虽然这有效，但我将来可能需要在我的工作表中添加列，这会产生一个问题，因为要求设置其值的单元格的位置发生变化，并且需要重新组合每次添加新列时的代码。
在考虑这个变量时，我研究了一下，结果为每个列定义了一个范围名称，要求在其中设置值。我以为我能够确定变量＆amp;活动行和命名范围列之间的可重定位交叉点，并将其定义为需要设置值的单元格。
在此之后，我研究了定义此变量交集的方法，并尝试设置以下备用代码：
ActiveCell.Offset(0, 0).Range("BusinessStudies").Value = CLV 7
希望它可以做到这一点，但不幸的是它没有。我查看了其他帖子，看不到如何调整它取得任何成功，因为我看不到任何类似的请求。我很感激任何人都可以提供的任何帮助。提前谢谢！
答案 0 :(得分：0)
尝试VBA中的Intersect（）函数
Debug.Print Intersect(Rows(ActiveCell.Row), Range("MyRange")).Value
编辑：适用于您的情况，假设您希望字符串“CLV 7”进入单元格：
Intersect(Rows(ActiveCell.Row), Range("BusinessStudies")).Value = "CLV 7"