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

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 + "→" +