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

Answer 1

签出“ Range Rows ，“ Cells ”和“ Address属性。 这应该有所帮助。 您的问题太含糊，无法直接回答。

---

（这将使您入门。）

Range.Row属性

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

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

例

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

Answer 2

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

ActiveCell.Offset(1, 1).Select

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

Answer 3

要添加到Geoffrey关于活动单元格的答案中，还需要激活您想要输入值的工作表（如果它与当前活动的工作表不同）。 另外，您必须激活一个单元才能使用activecell和activecell offset属性。 例如

     '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属性是指基于当前活动单元格的其他单元格。

例如-

偏移量（行，列）-

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

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