首页
后端开发
Python
Excel VBA: 指定范围数据提取与保存

Excel VBA: 指定范围数据提取与保存

22 次浏览 0 条评论
py
py

本节代码演示如何使用 Excel VBA 提取指定范围的数据并将其保存到原工作簿的新工作表中。

Sub 提取数据()
    Dim rng As Range
    Dim ws As Worksheet

    ' 设置要提取的数据范围
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")

    ' 添加新工作表
    Set ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

    ' 将数据复制到新工作表
    rng.Copy ws.Range("A1")
End Sub

代码说明:

  1. rng 变量用于存储要提取的数据范围。
  2. ws 变量用于存储新创建的工作表对象。
  3. ThisWorkbook.Worksheets("Sheet1").Range("A1:B10") 指定要提取的数据范围为 Sheet1 工作表中的 A1:B10 单元格区域。
  4. ThisWorkbook.Sheets.Add 方法用于添加新工作表，After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 参数指定将新工作表添加到现有工作表的最后面。
  5. rng.Copy ws.Range("A1") 将指定范围的数据复制到新工作表的 A1 单元格开始的区域。

通过修改代码中的数据范围和目标工作表，您可以轻松地提取和保存 Excel 工作簿中任何区域的数据。

py 文件大小：2.51KB