用VBA语言获取其他工作表中的数据

最新推荐文章于 2024-08-13 08:39:15 发布

Stack_mz

最新推荐文章于 2024-08-13 08:39:15 发布

阅读量9.3k

点赞数

分类专栏：学习笔记工具类

本文链接：https://blog.csdn.net/Stack_mz/article/details/81297659

版权

本文介绍如何利用VBA（Visual Basic for Applications）在Excel中批量处理不规律的重复工作。通过示例说明，如何从工作表'OA线路衰耗'中抽取数据并填充到'线路衰耗统计'工作表，利用Sheets()方法实现自动化填写。

摘要由CSDN通过智能技术生成

Excel中的格式刷、自动填充等功能可以帮助我们完成大量的重复工作，但是也有一些重复工作又比较不规律，这是我们可以借助VBA语言进行批量处理。

如下表，我们想按照工作表““OA线路衰耗””填写工作表“线路衰耗统计”：

要抽取的数据在另一个表格内，就要结束方法sheets（）：

Sub For_tongji()
    Dim str1 As String
    Dim str2 As String
    Dim index As Integer
    Dim cha As Integer
    cha = 20                    '算好两表格差值
    For i = 194 To 242 Step 2
        If i > 242 Then
            Exit For
        End If
		'预设一个值，区分是否是OTM站
        If Sheets("OA线路衰耗").Range("H" & (i + 1)) = 0 Then               
str1 = Sheets("OA线路衰耗").Range("B" & i)          '获取上游站名字
            str2 = Sheets("OA线路衰耗").Range("B" & (i + 2))    '获取下游站名字
            Range("B" & (i -