在 Excel 中选择 ActiveCell 行的第 1 到 10 列答案

【问题标题】：Select column 1 to 10 of ActiveCell row in Excel在 Excel 中选择 ActiveCell 行的第 1 到 10 列
【发布时间】：2013-05-06 07:27:03
【问题描述】：

这是关于 excel 中的宏。

按下组合键时（即触发宏），我需要对具有 ActiveCell 的行的第 1 到 10 列进行一些格式更改。

目前我正在选择整行

ActiveCell.EntireRow.Select

但是，我只需要选择第 1 到 10 行。我认为它应该类似于

ActiveCell.Range(1, 10).Select

但这不起作用。

为了清楚起见，我已经阅读了有关

ActiveCell.Offset(5, -4).Select

但这对我来说是行不通的。 ActiveCell 可以是行的任何列，因此硬编码的偏移量不会有帮助。

所以，那里的 excel 专家，我希望这是一个快速的东西，只是不知何故我找不到答案。请帮忙。

【问题讨论】：

标签： vba excel

【解决方案1】：

如果它始终是第 1 到 10 列（即 A 到 J），那么这应该可以工作：

Range("A" & ActiveCell.Row & ":J" & ActiveCell.Row)

例如，如果活动单元格是M14，那么这将选择范围A14:J14。然后，您可以按照自己的喜好对其进行格式化。

希望对你有帮助

【讨论】：

谢谢。是的，这行得通。它比我作为临时答案发布的要好。

【解决方案2】：

好的。这就是我所做的，并且有效。

ActiveSheet.Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 10)).Select

在我看来，这是一种 hacky 方式。如果有更好的，请回复。在我们得到更好的东西之前，我想这对于那些来寻找答案的人来说是最好的答案，在我之后。

【讨论】：

【解决方案3】：

这会起作用

Range("A" & ActiveCell.Row).Resize(1,10).select

【讨论】：

【解决方案4】：

如果适用.. 花了很多时间来寻找，需要一个更可编程的 - 自动化答案，以获得结果 - 在 1 行上工作。

        Dim N7 As String: N7 = RANGE("N7")    'workcell N7 shows eg:  A:J    
        Intersect(Rows(ActiveCell.row), RANGE(N7).Columns).Select   'YES ANSWER

    'other:
        If application.Max(Intersect(Rows(ActiveCell.row), RANGE(N7).Columns)) > 0 Then

      MsgBox "YES" & Space(10), vbQuestion  ', "title": end if    & vbCr &
Else: MsgBox "NO" & Space(10), vbQuestion: End If ', "title": end if    & vbCr &

'Cells(ActiveCell.row, J6).OFFSET(, 1).RESIZE(, 6).Select    'YES: offset works on immediate cols for 1 row
'Cells(ActiveCell.row, J6).RESIZE(, 5).Select                'yes on 4 immediate cols for 1 row   (row, col)
'Cells(ActiveCell.row, B5).select

工作单元 N7 具有： =SUBSTITUTE(SUBSTITUTE(CELL("address",$A7),"$",""),ROW(),"")&":"&SUBSTITUTE(SUBSTITUTE(CELL("address",$J7),"$ ",""),ROW(),"")

【讨论】：