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

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

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

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

 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控制，以便我可以分配任何细胞，并使其复制和重复自己。 如何在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 

Answer 2

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

 ActiveCell.Offset(1, 1).Select 

将select活动单元格右侧一行下一列的单元格。

Answer 3

为了增加Geoffrey有关活动单元格的回答，还需要激活要input值的表单，如果它是与当前活动表单不同的表单。 此外，您将不得不激活一个单元使用活动单元和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的偏移属性是指基于当前活动单元格的其他单元格。

例如-

偏移（行，列） –

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

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