VBA中引用工作簿、工作表和单元格

我们将学习如何在VBA中引用和操作Excel工作簿、工作表以及单元格。

引用工作簿和工作表：

在VBA中，可以使用 Workbooks 和 Worksheets 集合引用工作簿和工作表。

Sub ReferenceWorkbookWorksheet() Dim myWorkbook As Workbook Dim myWorksheet As Worksheet ' 引用活动工作簿 Set myWorkbook = ActiveWorkbook ' 引用第一个工作表 Set myWorksheet = myWorkbook.Worksheets(1) End Sub

操作单元格：

使用 Range 对象引用单元格，可以通过指定单元格地址或行列号来操作单元格。

Sub CellOperations() Dim myWorkbook As Workbook Dim myWorksheet As Worksheet Dim myCell As Range ' 引用活动工作簿 Set myWorkbook = ActiveWorkbook ' 引用第一个工作表 Set myWorksheet = myWorkbook.Worksheets(1) ' 引用A1单元格 Set myCell = myWorksheet.Range("A1") ' 在A1单元格写入值 myCell.Value = "Hello, VBA!" End Sub

动态范围引用：

可以使用 Cells 和 Range 来引用动态范围。

Sub DynamicRange() Dim myWorkbook As Workbook Dim myWorksheet As Worksheet Dim lastRow As Long Dim lastColumn As Long Dim myRange As Range ' 引用活动工作簿 Set myWorkbook = ActiveWorkbook ' 引用第一个工作表 Set myWorksheet = myWorkbook.Worksheets(1) ' 获取最后一个非空单元格的行和列 lastRow = myWorksheet.Cells(myWorksheet.Rows.Count, "A").End(xlUp).Row lastColumn = myWorksheet.Cells(1, myWorksheet.Columns.Count).End(xlToLeft).Column ' 引用动态范围 Set myRange = myWorksheet.Range(myWorksheet.Cells(1, 1), myWorksheet.Cells(lastRow, lastColumn)) End Sub

在这些示例中，我们学习了如何引用和操作工作簿、工作表以及单元格。请尝试编写这些示例程序，执行并查看结果。