excel - Visual Basic - 将条目添加到另一个工作表中的列表

Question

我有一张有 2 张纸的工作簿。 Sheet1 被命名为 Form，Sheet2 被命名为 Data。我试图在 Sheet1 上创建一个在 Sheet2 中创建新行的表单。我对 VBA 很陌生，我真的只是想通过谷歌自学。我的问题是，您如何引用未激活的工作表并让它按预期编码信息而不用视觉切换选项卡？

任何帮助是极大的赞赏。

非常恭敬，

亚当沃克

Answer 1

Option Explicit
Sub add_row()
    Dim wb As Workbook, ws2 As Worksheet
    Set wb = ThisWorkbook
    Set ws2 = wb.Sheets("Sheet2")
    ws2.Rows(1).Insert shift:=xlDown
End Sub

以上将在工作表 2 的顶部添加一个新行。
如果您要在不同的工作表上执行多个操作，还可以使用 with 语句。

Option Explicit
Sub add_data()
    Dim wb As Workbook, ws2 As Worksheet
    Set wb = ThisWorkbook
    Set ws2 = wb.Sheets("Sheet2")
    With ws2
        .Rows(1).Insert shift:=xlDown
        .Cells(1, 1).Value2 = "Rows shifted down by 1!"
    End With
End Sub

我希望这对你有帮助。