如何在 Excel VBA 脚本中增加单元格？答案

【问题标题】：How do I increment cell in Excel VBA script?如何在 Excel VBA 脚本中增加单元格？
【发布时间】：2013-01-08 00:00:54
【问题描述】：

我在 excel 中有一个数据，我想制作一个 VBA 脚本以将其复制到新工作表中，但方式不同。例如，我在 sheet1 的 A1~A3 单元格中有这个。

Adam(A1)
Sam(A2)
Smith(A3)

我想使用这些单元格并使用 refedit 控件在另一个工作表中创建以下内容。

Adam(A1)
Adam(A2)
Adam(A3)
Adam(A4)
Sam(A5)
Sam(A6)
Sam(A7)
Sam(A8)
Smith(A9)
Smith(A10)
Smith(A11)
Smith(A12)

我在 VBA 脚本中设置了 refedit 控件，但我不确定如何增加单元格编号以使其复制并粘贴到新工作表中。我想使用 refedit 控件，以便我可以分配任何单元格并使其复制和重复。如何在 VBA 脚本中执行此操作？

【问题讨论】：

标签： vba excel excel-2007

【解决方案1】：

查看RangeRows、Cells 和Address 属性。这应该会有所帮助。您的问题太模糊，无法直接回答。

（这会让你开始。）

Range.Row 属性

http://msdn.microsoft.com/en-us/library/bb221550(office.12).aspx

返回范围内第一个区域的第一行的编号。只读长。

示例

For Each rw In Worksheets("Sheet1").Rows
    If rw.Row Mod 2 = 0 Then
        rw.RowHeight = 4
    End If
Next rw

【讨论】：

如何在 VBA 中检查属性？你能说得清楚一点吗？抱歉，我不熟悉 Excel 中的 VBA 脚本。
“签出”是指阅读这些属性的帮助主题。另外，打开“对象浏览器”并搜索属性。

【解决方案2】：

要在 Excel VBA 中增加单元格，您可以使用 Range-object 的 Offset 属性，例如

ActiveCell.Offset(1, 1).Select

将选择活动单元格的下一行和右一列的单元格。

【讨论】：

【解决方案3】：

要添加到 Geoffrey 关于活动单元格的答案 - 如果它与当前处于活动状态的工作表不同，还需要您激活要输入值的工作表。此外，您必须激活一个单元格才能使用 activecell 和 activecell 偏移属性。例如

     'Activates the name of the sheet you would like to activate
    Sheets("Sheet2").Activate  

    'Activates cell A1
    Range("A1").Activate

    'Activates cell one row down, one column right
    ActiveCell.Offset(1,1).Select  

   'if current sheet is not activate you just do Sheets("Sheet2").Range("A1").Activate

ActiveCell 的 offset 属性是指基于当前活动单元格的其他单元格。

例如-

偏移量（行，列） -

第一个参数 - 作为第一个参数的正值指向当前活动单元格下方的行，负值指向当前活动单元格上方的行

第二个参数-正值作为第二个参数将您指向当前活动单元格右侧的列，负值将您指向当前活动单元格左侧的列

【讨论】：