我有一本有2张纸的工作簿。Sheet1命名为Form,Sheet2命名为Data。我正在尝试在Sheet1上创建一个表单,该表单在Sheet2中创建一个新行。我对VBA还是很陌生,实际上我只是想通过Google自学。我的问题是,如何在不可视切换选项卡的情况下如何引用未处于活动状态的工作表并将其整理为所需的信息?
任何帮助是极大的赞赏。
非常敬意
亚当·沃克(Adam Walker)
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
希望对您有帮助。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句