用循环嵌套进行 就可以,下图的是 4列的宏代码
Sub a()
Dim a, b, c, d As Integer
a = Sheets(1).[a65536].End(xlUp).Row
b = Sheets(1).[b65536].End(xlUp).Row
c = Sheets(1).[c65536].End(xlUp).Row
d = Sheets(1).[d65536].End(xlUp).Row
For i = 1 To a
For p = 1 To b
For q = 1 To c
For t = 1 To d
x = x + 1
Cells(x, 7).Value = Cells(i, 1).Value &Cells(p, 2).Value &Cells(q, 3).Value &Cells(t, 4).Value
Next
Next
Next
Next
End Sub
网站SEO优化关键词筛选和布局我先说一下文章关键词布局:
一篇文章不一定只做一个关键词,围绕关键词编写文章时,自然布局一些和关键词相关/相似的词,关键词的选择偏向中长尾词。一篇文章包括大标题、小标题、正文、图片等,关键内容尽量在标题、正文的第一段、图片alt标签里出现。
文章关键词筛选:
1. 抓取竞争对手网站的关键词,并根据行业和自己的分析,去研究一下行业的关键词都有什么类型,并且都有什么样的关键词。
2. 选择一批基础关键词,给每个词设置好不同的分类。
具体的关键词数量要根据行业而定,基本上,每个类别都要选择几十个关键词吧。如果行业规模搜索量在几十万以上的话,总共选择的基本关键词应该在至少几百个的级别。以婚纱行业为例,如何进行分类。
婚纱类
婚纱照
婚纱+摄影
地区+婚纱+摄影
婚纱+摄影+其他
3. 根据基础关键词用百度推广跑数据。就是把我们前一步选择的所有关键词,用百度推广的关键词工具进行搜索。然后将数据导出。注意:数据导出时需要精确匹配的类型。
4. 根据数据结果,填充基础关键词。在搜索和导出数据的过程中,我们可能会发现在之前基础关键词库中漏掉了一些重要的词。这时,需要把这些词添加到基础关键词库中,再重复第3步。
5. 制成一个完整的未加工的数据表。完成了第四步之后,我们会得多很多的未经加工的关键词数据,或者就是直接说是excel表格。我们需要将这些所有的excel表格中数据汇总到一个表格中。
6. 手动调整所有数据的分类,利用Excel筛选功能然后手动的给每一个关键词选择一个分类,就是新增一列分类的数据。在这个过程中,可以利用筛选功能,来提高效率。
Public Function UrlDecode(ByVal strText As String) As String '如果值中带有非英文和数字,则需转换成%形式'url编码 utf-8
Dim js
Set js = CreateObject("msscriptcontrol.scriptcontrol")
js.Language = "JavaScript"
'UrlDecode = js.eval("decodeURI('" &strText &"')") '忽略! @ # $&* ( ) = : / + '
'UrlEncode = js.Eval("escape('" &Replace(strText, "'", "\'") &"')") '汉字转换为%u开头的Unicode码 不会被此方法编码的字符: @ * / +
UrlDecode = js.Eval("decodeURIComponent('" &strText &"')") '包含://
End Function
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)