VB表格处理

Url处理

Sub Url处理()
    Worksheets(1).Activate
    Range("A1").Formula = "网址"
    Range("B1").Formula = "标题"
    Range("C1").Formula = "关键词"
    Range("D1").Formula = "标签"
    Range("E1").Formula = "状态"
    Range("F1").Formula = "权重"
    For Each sh In Worksheets
        If sh.Index = 1 Then    '限定工作表范围
            MsgBox ("Url处理完成")
            Dim OPTNum As Integer
            '得到有效数据行
            OPTNum = [A65536].End(xlUp).Row
            '循环控制，读取单元格数据
            For i = 1 To OPTNum
                Range("E" & i).Formula = 1
            Next i
        End If
    Next
End Sub