VBA Excel 将工作表分配给变量

使用VBA Excel将工作表分配给变量是一种非常有用和高效的方法，可以在代码中直接引用工作表，而无需每次都使用工作表的名称。这种方法可以简化代码并提高代码的可读性和可维护性。接下来，我们将介绍如何使用VBA Excel将工作表分配给变量，并提供一个案例代码来加深理解。

vba
Sub AssignWorksheetToVariable()
    Dim ws As Worksheet
    
    ' 分配工作表给变量
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 现在可以使用变量ws来引用工作表
    ws.Range("A1").Value = "Hello, World!"
    
    ' 清除变量
    Set ws = Nothing
End Sub

vba
Sub CalculateTotalSales()
    Dim salesData As Worksheet
    Dim summarySheet As Worksheet
    Dim totalSales As Double
    
    ' 分配工作表给变量
    Set salesData = ThisWorkbook.Worksheets("SalesData")
    Set summarySheet = ThisWorkbook.Worksheets("Summary")
    
    ' 计算销售总额
    totalSales = WorksheetFunction.Sum(salesData.Range("B2:B100"))
    
    ' 将结果写入汇总工作表
    summarySheet.Range("A1").Value = "总销售额："
    summarySheet.Range("B1").Value = totalSales
    
    ' 清除变量
    Set salesData = Nothing
    Set summarySheet = Nothing
End Sub