返回与activecell位于同一行的单元格，以及VBA中所选内容的第一列

提前感谢你的帮助。我是VBA新手，需要选择activecell的行标题-基本上构建此代码，但在VBA中似乎不起作用：

Dim C as range ("I4")
Dim R as C.CurrentRegion
cells(C.row,R.Columns(1)).Select

我不能使用

C.End（xlToLeft）

，因为我在左侧有另一个表，尽管有一个空白列将这两个表分开，但该代码会跳转到左侧的表。另外，我的表的第一列不是A，并且我不能硬编码列号。 如果你能帮忙，非常感谢！

---

西尔维亚

从你的帖子中可以理解的一点，我猜你是在追求她

Intersect(ActiveCell.EntireRow, ActiveCell.CurrentRegion.Columns(1)).Select

或

不使用“helper”

range

变量（如您的

C

或

R

）

如果您需要使用它们，那么这两个选项将变为：

Set C = ActiveCell
Set R = C.CurrentRegion
Intersect(C.EntireRow, R.Columns(1)).Select

或

---

但无论如何，您最好不要选择任何内容，只需：

• 将其设置为某个

  范围

  变量：

  Dim myCell as Range
  
  set myCell = Intersect(ActiveCell.EntireRow, ActiveCell.CurrentRegion.Columns(1))
  

• 然后使用它：

---

从你的帖子中可以理解的一点，我猜你是在追求

Intersect(ActiveCell.EntireRow, ActiveCell.CurrentRegion.Columns(1)).Select

或
不使用“helper”

range

变量（如您的

C

或

R

）
如果您需要使用它们，那么这两个选项将变为：

Set C = ActiveCell
Set R = C.CurrentRegion
Intersect(C.EntireRow, R.Columns(1)).Select

或

---

但无论如何，您最好不要选择任何内容，只需：
• 将其设置为某个

  范围

  变量：

  Dim myCell as Range
  
  set myCell = Intersect(ActiveCell.EntireRow, ActiveCell.CurrentRegion.Columns(1))
  

• 然后使用它：

---

抱歉，格式设置有点奇怪：下面我在开始新行时用//标记：

单元格（[I4]。行[I4]。CurrentRegion.Column）。选择

？仅供参考，在VBA中，声明和设置必须在单独的行上

Dim C as Range

，然后

设置C=Range（“I4”）

如果您不直观地向我们展示您正在处理的数据，我们将无法为您提供帮助。谢谢，很抱歉，我是这个网站的新手，不知道如何添加任何可视化。是的，原始代码包含dim C作为range，然后设置C=range（“I4”）。抱歉，格式设置有问题：下面我在开始新行时用//标记：

单元格（[I4]。行，[I4]。当前区域。列）。选择

？仅供参考，在VBA中，声明和设置必须在单独的行上

Dim C as Range

，然后

Set C=Range（“I4”）

如果您不直观地向我们显示您正在处理的数据，我们将无法帮助您。谢谢这两个，很抱歉，我是这个网站的新手，不知道如何添加任何可视化。是的，原始代码包含dim C作为range，然后设置C=range（“I4”），非常感谢，非常感谢！这个解决方案非常有效！哦，是的，对不起，我刚刚将它标记为已解决-再次抱歉。非常感谢，非常感谢！这个解决方案非常有效！哦，是的，对不起，我刚刚把它标记为已解决-再次抱歉。