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

最新推荐文章于 2024-10-06 20:52:25 发布

原创

最新推荐文章于 2024-10-06 20:52:25 发布 · 9.9k 阅读

6 ·

CC 4.0 BY-SA版权

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

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 - cha)).Value = str1 + "-" + str2
            Range("D" & (i - cha)).Value = str1 + "→" + str2
            Range("D" & (i - cha + 1)).Value = str2 + "→" +