vba - 如何在 Excel VBA 脚本中递增单元格？

Question

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

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

Answer 1

查看Range、Rows、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