现在的位置: 首页 > 搜索引擎优化 > 正文

大批量多城市关键词变动环比VBA代码

2014年01月12日 搜索引擎优化 ⁄ 共 1601字 暂无评论 ⁄ 阅读 1,188 次

该数据主要用于监控某类频道某特定方向大批量关键词排名变动情况,也属于练习代码,不具有可移植性。该代码是笨鸟玩VBA很具有里程碑意义的一段代码,在代码中开始使用变量、数组、循环等内容,开始逐渐抛弃工作表函数转而使用真正的VBA函数。

以下截图为某城市某特定方向大量关键词数据结果:

关键词环比

Sub 大批量多城市关键词变动环比VBA代码()
Dim arr1()
arr1 = Array("南京", "苏州", "无锡", "合肥", "杭州", "常州", "西安")
For c = 0 To 6
Sheets(arr1(c)).Select
For b = 4 To 10
For a = 3 To 11 Step 2
Cells(b, a) = Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 2, (a + 1) / 2)
Cells(b, a + 1) = (Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 2, (a + 1) / 2).Value - Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(1).Cells(b - 2, (a + 1) / 2).Value) / Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 2, (a + 1) / 2).Value
Next a
Next b
For b = 12 To 18
For a = 3 To 11 Step 2
Cells(b, a) = Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 10, 8 + (a - 1) / 2)
Cells(b, a + 1) = (Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 10, 8 + (a - 1) / 2).Value - Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(1).Cells(b - 10, 8 + (a - 1) / 2).Value) / Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 10, 8 + (a - 1) / 2).Value
Next a
Next b
For b = 20 To 26
For a = 3 To 11 Step 2
Cells(b, a) = Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 9, (a + 1) / 2)
Cells(b, a + 1) = (Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 9, (a + 1) / 2).Value - Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(1).Cells(b - 9, (a + 1) / 2).Value) / Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 9, (a + 1) / 2).Value
Next a
Next b
For b = 28 To 34
For a = 3 To 11 Step 2
Cells(b, a) = Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 17, 8 + (a - 1) / 2)
Cells(b, a + 1) = (Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 17, 8 + (a - 1) / 2).Value - Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(1).Cells(b - 17, 8 + (a - 1) / 2).Value) / Workbooks(arr1(c) & "小区排名数据库.xlsx").Sheets(2).Cells(b - 17, 8 + (a - 1) / 2).Value
Next a
Next b
Next c
End Sub

» 声明:本站文章源于个人经验总结或书籍、互联网转载,内容仅用于个人学习,请勿转载,否则后果自负!

给我留言

留言无头像?