[已解决]急求帮助解决根据逗号分隔的内容进行分行，并保持其它字段不变的问题

zhkshi · 发表于 2011-12-3 01:23

本帖最后由 zhkshi 于 2011-12-3 21:23 编辑

样例及请求演示工作表.rar (39.99 KB, 下载次数: 62)

Zipall · 发表于 2011-12-3 04:01

Sub test()
arr = ActiveSheet.UsedRange.Value
Sheets.Add
x = 2
For i = 2 To UBound(arr)
b = Split(arr(i, 3), ",")
r = UBound(b) + 1
Cells(x, 1).Resize(r, 1) = arr(i, 1)
Cells(x, 2).Resize(r, 1) = arr(i, 2)
For j = 0 To r - 1
Cells(x, 3) = b(j)
x = x + 1
Next
Next
End Sub

复制代码

zhkshi · 发表于 2011-12-3 21:42

Zipall 发表于 2011-12-3 04:01

Zipall 老师你好，我看到您回复我提的难题了，我本来发了段消息给您，结果被告知没有权限，就直接在这里回复你了。您给的那段代码是ＶＢＡ吗？我不太会用ＶＢＡ，我今天在帖子中新放上了一个附件，想麻烦你不吝牺牲点时间帮我演示一下如何使用那段代码，就像论坛中好多.Gif 动画演示的一样。
万分感谢！

Zipall · 发表于 2011-12-4 00:00

这个最佳答案由 Zipall 给出，感谢 Zipall 的回答。

单击隐藏图章

zhkshi 发表于 2011-12-3 21:42
Zipall 老师你好，我看到您回复我提的难题了，我本来发了段消息给您，结果被告知没有权限，就直接在这里回 ...

打开文件后按住alt,依次按f11,i,m
粘贴代码后按f5即可

但是你的C410单元格里没有班级,会造成代码运行出错.
在该单元格输入任意字符串即可正常运行.

zhkshi · 发表于 2011-12-4 12:55

Zipall 发表于 2011-12-4 00:00
打开文件后按住alt,依次按f11,i,m
粘贴代码后按f5即可

非常感谢Zipall老师！我已设置您的答案为最佳答案了！
但是有一个问题，比如首行“2002　就业指导”以及下面的一部分课程号本来应该是字符型的，保留前面的“00”或
“0”,但执行ＶＢＡ代码后这部分课程号变成没有前导“0”的了，那段代码应该如何增添些语句，使得能够保持这些课程号的原样不动呢？
谢谢！

liuho1 · 发表于 2011-12-4 14:16

录制一个宏，设A列为文本；
Columns("A:A").Select
Selection.NumberFormatLocal = "@"

Zipall · 发表于 2011-12-4 17:49

本帖最后由 Zipall 于 2011-12-4 17:50 编辑

zhkshi 发表于 2011-12-4 12:55
非常感谢Zipall老师！我已设置您的答案为最佳答案了！
但是有一个问题，比如首行“2002　就业指导”以及 ...

是我粗心了
6楼的方法应该可行,在sheets.add后增加一句
range("a:a").numberformatlocal = "@"

zhkshi · 发表于 2011-12-4 22:56

liuho1 发表于 2011-12-4 14:16
录制一个宏，设A列为文本；
Columns("A:A").Select
Selection.NumberFormatLocal = "@"

谢谢支招！
果然行！

zhkshi · 发表于 2011-12-4 22:58

Zipall 发表于 2011-12-4 17:49
是我粗心了
6楼的方法应该可行,在sheets.add后增加一句
range("a:a").numberformatlocal = "@"

谢谢！
已经在sheets.add后加了这一句，
运行成功！
再次感谢Zipall老师！

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