[求助]如何完成这个"另类合并单元格"

yjwly · 发表于 2006-5-30 15:09

oDuLG0lM.rar (1.95 KB, 下载次数: 468)

zz5151353 · 发表于 2006-5-30 15:27

用論壇尋找格子人生兄的貼子或是 gvntw 版主的貼子參考一下自定義函數 =zz(區域) Function zz(rng As Range) Dim c As Range For Each c In rng zz = zz & c.Text & "," Next End Function

[此贴子已经被作者于2006-5-30 15:57:43编辑过]

yjwly · 发表于 2006-5-30 16:29

不懂啊,能不能帮我做在里面呢,然后我在看看可能会明白一点,谢谢了

zz5151353 · 发表于 2006-5-30 16:35

以下是引用[I]yjwly[/I]在2006-5-30 16:29:22的发言：[BR]不懂啊,能不能帮我做在里面呢,然后我在看看可能会明白一点,谢谢了

請參考

n7tM7jEU.rar (6.1 KB, 下载次数: 287)

social_dct · 发表于 2006-5-30 17:10

有点小问题，后面多了"，"

yanjie · 发表于 2006-5-30 21:01

复制粘贴到word中,再在excel中在编辑状态下粘贴回来!

gvntw · 发表于 2006-5-30 21:18

回5楼：

Function zz(rng As Range)
Dim c As Range
For Each c In rng
zz = zz & IIf(Len(zz) = 0, "", ",") & c.Text '这句改一下就可以了。
Next
End Function

yanjie · 发表于 2006-5-30 21:21

这种方法更简单,可以把它录制为宏,再简单修改一下就可用. 它的基本操作如下: 先把列转换为行,然后把它复制到剪切板上(按2次ctrl+c),在选中的一个单元格上按F2,进入编辑状态,然后用鼠标点剪切板上的粘贴图标!

[此贴子已经被作者于2006-5-30 21:38:08编辑过]

aichong · 发表于 2006-5-30 21:23

3....不同单元格字符快速合并函数WUNITE(多单元格字符合并一次完成)（9月13编制）

gvntw · 发表于 2006-5-30 21:36

yanjie兄的方法好，加精鼓励。

可以先把要合并的单元格区域自定义格式：0","，再全部粘贴。

		自动登录	找回密码
密码			免费注册