【求助】excel表格组合关键��

蚂蚁客服 新手: txqq_50b79a7c128b36a2407c17 于 2015-06-26 11:05:41 发表求助 1 楼; excel表格组合关键��; step1 上传文档... step2 填写文档信息... step3 提交回答...
我来帮他解答

抱歉，由于部分浏览器不再支持Flash播放器，攻城狮正在火速开发新版中。
建议您改用其它支持Flash的浏览器进行访问。
新版即将上线，由此带来的不便敬请谅解。

提交回答
正确解答1个求助，您将获得10经验值。每天最多获得100经验值

2 楼

回复：1楼

各位亲，不要看着代码头晕，您根本不用管代码多复杂，直接复制进去就行了。按步骤操作。相当简单！您用旺旺联系我也是这样跟你说的。代码都在后面。只要复制粘贴就行。谢谢！

本教程是针对直通车用户自已组合关键词而制作的。如果你认为有用就顶一下。安慰一下幼小的心灵！

如果你能在系统推荐和搜索栏找到够量的优质的关键词可以跳过本教程。 (注意一点每个宝贝都要放满200个关键词)

第一步：打开EXCEL，输入关键元素，（商品名称属性等元素）如下图：

第二步：放入代码（代码附后）
鼠标放在EXCEL表格里，就是第一步设关键词的那个表格里，按ALT+F11会另外出现一个工作表，如图：

第三步：点击上图中的SHEET1，会出现如下画面

第四步：双击SHEET1后出现一个对话框，把代码放在这个对话框里，点击保存，会出现一个对话框，确定就行了，出现如下画面

第五步；上面这个表格不用去管他了。再进刚才输入关键词的那个表格，鼠标放在表格里，按ALT+F8，选定宏，如下图

第六步；没有了。直接关键词出来了，如下图：

两个词组合的代码如下：

Sub zh()
Dim a() As Variant, b As Integer, n As Integer
'定义一个数组,两个变量
b = WorksheetFunction.CountA(Range("a:a"))
'判断A列有多少个数据
ReDim a(b)
'重定义数组大小
For i = 1 To b
a(i) = Range("a" & i)
Next i
'给数组赋值
For i = 1 To b
n = 1
For j = 1 To b
If i <> j Then
'判断各个数是否相等
Cells(n, i + 2) = a(i) & " " & a(j)
'生成各个数的组合,并输出到C列，上面 a(i) & " " & a(j)表示C列输出是关键词+空格+关键词。
n = n + 1
End If
Next j, i
End Sub

三个词组合的代码如下：

Sub zh()
Dim a() As Variant, b As Integer, n As Integer
'定义一个数组,两个变量
b = WorksheetFunction.CountA(Range("a:a"))
'判断A列有多少个数据
ReDim a(b)
'重定义数组大小
For i = 1 To b
a(i) = Range("a" & i)
Next i
'给数组赋值
For i = 1 To b
n = 1
For j = 1 To b
For x = 1 To b
If i <> j And i <> x And j <> x Then
'判断各个数是否相等
Cells(n, i + 2) = a(i) & " " & a(j) & " " & a(x)
'生成各个数的组合,并输出到C列
n = n + 1
End If
Next x, j, i
End Sub

代码是SUB开头，SUB结尾。直接复制进去就行了的。

2015-07-13 15:51:33

【求助】excel表格组合关键��

邀请成员

豆丁提示：

豆丁提示：

豆丁提示：

豆丁提示：

豆丁提示：

豆丁提示：

豆丁提示：


	邀请成员通过HI QQ MSN 等聊天工具向好友发送入团邀请发送豆丁消息邀请成员(特权每天可使用1次。每次最多2人) (输入邀请成员的用户名，多个用户用“;”隔开)


	豆丁提示：太可惜了，您真的要放弃加入这个优秀团队的机会?


	豆丁提示：您确定要拒绝该用户加入团队的申请吗？


	豆丁提示：您之前所做的团队任务经验值有效，退出团队将不能领取该团任务，您确定退出吗？


	豆丁提示： null


	豆丁提示： null 查看详情


	豆丁提示：您确定要删除该团队成员吗？