标题：原创-批量查百度关键词排名最简单的方法-excel公式法 bycotine

-------------------------------------------------------------------------------------------------------------------------------

时间：2011/12/10 1:26:40

-------------------------------------------------------------------------------------------------------------------------------

内容：

相信大家对excle的公式肯定不会陌生，单元格数据相加用sum公式，复杂点的用vlookup查询匹配的数据

今天也说的是利用自己创建的position公式 就可以方便的查询关键词的排名

之前介绍过利用excel公式title批量查询网页的标题title和描述信息meta

做seo的时候需要把网站所有的url和标题都要整理在excle中

那么我们可以访问网站地图页面 通过 使用excel提取所有url函数 把网址抓取出来

再用拉公式的方法把每个网址的title给提取出来

这样比以前一个个去复制网址 打开页面 再打开源代码 复制粘贴title中要快很多

通过同样的原理 又做了一个baiducompetition函数，可以

批量查询关键词搜索结果数量 百度的哦 使用这个公式可以方便查询 大概知道关键词的竞争激烈度

做seo的按词收费的基本都是以这个为标准的

这个公式的优势：

最后要言归正传 讲下这个百度关键词排名的注意事项 比较查关键词排名是做seo的人做的最多的一件事

而大家的方法也是千奇百怪 但是用excel确实不需要下载任何工具 特别当你要做报表的时候 突然要更新

几个关键词的当前排名 这个时候直接输入公式 比你打开工具 输入关键词 再运行要快很多 机动性强

使用这个公式的注意事项：

a1单元格输入你要查的网址 这个地方我做了几个容错处理 有的人复制来的网址带空格 带http 有的不带www 有的甚至还会带网站目录名 这些情况都是允许的

打开excel的vba编辑器 可以使用关键词 alt+f8

新建一个模块 一点要插入模块才能使用公式 右键-插入-模块

然后复制下面的代码

Function position(keywords As String)
Dim url As String, i As Integer, tmp() As String, sourcecode As String

'去掉网址中的http和www,以及目录 防止匹配不到
url = Split(Replace(Replace(Trim(Cells(1, 1)), "http://", ""), "www.", ""), "/")(0)

With CreateObject("Msxml2.XMLHTTP")
keywords = "http://www.baidu.com/s?rn=100&word=" & keywords
.Open "get", keywords, False
.send
'去掉源代码中的sem部分
        '查找第一个出现result op的代码位置 取得 后面的代码
        keywords = keywords = Split(.responsetext, "id=""1""")(1)       
'查找url 分组
tmp = Split(keywords, url)
'如何没找到url 输入大于100
If UBound(tmp) = 0 Then
Cells(i + 1, 2) = ">100"
Else
'截取出现了网址后面的id的数字这是个后面排名的名次
position = Split(Split(tmp(2), "id=""")(1), """ ><tr><td class")(0)
position = position - 1

End If

End With

end function
就这样 就完整了一个公式的制作过程

这个表里你就可以尽情使用它了

相信大家对excle的公式肯定不会陌生，单元格数据相加用sum公式，复杂点的用vlookup查询匹配的数据

今天也说的是利用自己创建的position公式 就可以方便的查询关键词的排名

之前介绍过利用excel公式title批量查询网页的标题title和描述信息meta

做seo的时候需要把网站所有的url和标题都要整理在excle中

那么我们可以访问网站地图页面 通过 使用excel提取所有url函数 把网址抓取出来

再用拉公式的方法把每个网址的title给提取出来

这样比以前一个个去复制网址 打开页面 再打开源代码 复制粘贴title中要快很多

通过同样的原理 又做了一个baiducompetition函数，可以

批量查询关键词搜索结果数量 百度的哦 使用这个公式可以方便查询 大概知道关键词的竞争激烈度

做seo的按词收费的基本都是以这个为标准的

这个公式的优势：

最后要言归正传 讲下这个百度关键词排名的注意事项 比较查关键词排名是做seo的人做的最多的一件事

而大家的方法也是千奇百怪 但是用excel确实不需要下载任何工具 特别当你要做报表的时候 突然要更新

几个关键词的当前排名 这个时候直接输入公式 比你打开工具 输入关键词 再运行要快很多 机动性强

使用这个公式的注意事项：

a1单元格输入你要查的网址 这个地方我做了几个容错处理 有的人复制来的网址带空格 带http 有的不带www 有的甚至还会带网站目录名 这些情况都是允许的

打开excel的vba编辑器 可以使用关键词 alt+f8

新建一个模块 一点要插入模块才能使用公式 右键-插入-模块

然后复制下面的代码

Function position(keywords As String)
Dim url As String, i As Integer, tmp() As String, sourcecode As String

'去掉网址中的http和www,以及目录 防止匹配不到
url = Split(Replace(Replace(Trim(Cells(1, 1)), "http://", ""), "www.", ""), "/")(0)

With CreateObject("Msxml2.XMLHTTP")
keywords = "http://www.baidu.com/s?rn=100&word=" & keywords
.Open "get", keywords, False
.send
'去掉源代码中的sem部分
        '查找第一个出现result op的代码位置 取得 后面的代码
        keywords = keywords = Split(.responsetext, "id=""1""")(1)       
'查找url 分组
tmp = Split(keywords, url)
'如何没找到url 输入大于100
If UBound(tmp) = 0 Then
Cells(i + 1, 2) = ">100"
Else
'截取出现了网址后面的id的数字这是个后面排名的名次
position = Split(Split(tmp(2), "id=""")(1), """ ><tr><td class")(0)
position = position - 1

End If

End With

end function
就这样 就完整了一个公式的制作过程

这个表里你就可以尽情使用它了