利用VBA在EXCEL中对选定区域进行编辑并写入结果

显示全部楼层 · 2010-5-10 17:50:29

item
data
1
A
2
B,C
3
D
4
E,F
当我选定第二列的下面四行后,执行某个命令(怎么放这个按纽),会得到如下结果?item栏可以不用管.
item
data
1
A,B,C,D,E,F
shuhua0715 确是牛人
但我太菜了,不知道怎么加进去啊,麻烦告知下
谢谢了
。
。
shuhua0715的程序可用，jlf629的那个用不了
麻烦shuhua0715帮我把结果写在所选列的第一行，行吗？

千问 · 2010-5-10 17:50:29

你这样操作.在菜单栏上右击,在弹出的菜单上选择控件工具箱.在出来的控件工具当中找到命令按钮,左击一下,在表的某个位置画出一个按钮来,双击这个按钮,把这些代码放进去.保存并关闭这个表.再打开就能用了.

千问 · 2010-5-10 17:50:29

在vb编辑器里新建一个模块，复制一下内容到模块里，为什么用不了？我测试就是放到所选列的第一行，你要是看不懂可以hi我'------------------------Sub hebing()
For Each c In Selection
b = b & "," & c.Value
Next
b =

千问 · 2010-5-10 17:50:29

Private Sub CommandButton1_Click()For Each rng In Selectionnstr = nstr & rng & ","Next[b1] = Left(nstr, Len(nstr) - 1) '结果显示在 B1End Sub