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

多站点多频道列表页URL批量构造VBA代码

2014年01月06日 搜索引擎优化 ⁄ 共 1834字 暂无评论 ⁄ 阅读 2,081 次

对于部分含有筛选项的列表页,需要统计其收录率等数据,但该动态文件在数据库中并不存在URL,故需自己批量生成。代码需建立自己的配置文件、参数数据库等。该数据为笨鸟玩VBA的练习代码,数据本身非SEO必要数据,可转移性也不高。若您对Excel VBA自动处理数据有兴趣或疑问,欢迎沟通交流。

Sub 区属板块生成宏()
Dim a As Byte
a = Sheets("二手房").[A100].End(xlUp).Row
Dim b As Integer
b = Sheets("二手房").[E500].End(xlUp).Row
Dim c As Integer
c = Sheets("小区详情首页").[A65536].End(xlUp).Row
Sheets("二手房").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(配置文件!R2C1,配置文件!R2C2,配置文件!R2C3,配置文件!R2C4,配置文件!R2C5,配置文件!R2C6,二手房!RC[-1],配置文件!R2C9)"
Selection.AutoFill Destination:=Range("C2:C" & a)
Range("I2").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(配置文件!R2C1,配置文件!R2C2,配置文件!R2C3,配置文件!R2C4,配置文件!R2C5,配置文件!R2C6,二手房!RC[-1],配置文件!R2C7,配置文件!R2C8,二手房!RC[-3],配置文件!R2C9)"
Selection.AutoFill Destination:=Range("I2:I" & b)
Range("I2:I127").Select
Sheets("租房").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(配置文件!R2C1,配置文件!R2C2,配置文件!R3C3,配置文件!R2C4,配置文件!R2C5,配置文件!R2C6,租房!RC[-1],配置文件!R2C9)"
Selection.AutoFill Destination:=Range("C2:C" & a)
Range("I2").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(配置文件!R2C1,配置文件!R2C2,配置文件!R3C3,配置文件!R2C4,配置文件!R2C5,配置文件!R2C6,租房!RC[-1],配置文件!R2C7,配置文件!R2C8,租房!RC[-3],配置文件!R2C9)"
Selection.AutoFill Destination:=Range("I2:I" & b)
Range("I2:I" & b).Select
Sheets("小区列表").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(配置文件!R2C1,配置文件!R2C2,配置文件!R2C3,配置文件!R2C4,配置文件!R3C5,配置文件!R2C6,小区列表!RC[-1],配置文件!R2C9)"
Selection.AutoFill Destination:=Range("C2:C" & a)
Range("I2").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(配置文件!R2C1,配置文件!R2C2,配置文件!R2C3,配置文件!R2C4,配置文件!R3C5,配置文件!R2C6,小区列表!RC[-1],配置文件!R2C7,配置文件!R2C8,小区列表!RC[-3],配置文件!R2C9)"
Selection.AutoFill Destination:=Range("I2:I" & b)
Range("I2:I" & b).Select
Sheets("小区详情首页").Select
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(配置文件!R2C1,配置文件!R2C2,配置文件!R2C3,配置文件!R2C4,配置文件!R4C5,小区详情首页!RC[-1],配置文件!R2C10)"
Selection.AutoFill Destination:=Range("C2:C" & c)
End Sub

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

给我留言

留言无头像?