如何在 Excel VBA 脚本中增加单元格?

js0*_*823 5 excel vba excel-2007

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

Adam(A1)
Sam(A2)
Smith(A3)
Run Code Online (Sandbox Code Playgroud)

我想使用这些单元格并使用 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)
Run Code Online (Sandbox Code Playgroud)

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

AMi*_*ico 4

查看Range RowsCellsAddress属性。这应该有帮助。你的问题太模糊,无法直接回答。


(这将帮助您开始。)

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 
Run Code Online (Sandbox Code Playgroud)