利用vb将excel数据转换成word

来源：百度知道 编辑：UC知道 时间：2024/07/04 06:12:30
excel表，如下：
鞍山师范学院 陈绍亮
鞍山师范学院 于 娜
鞍山师范学院 陈 萌
鞍山师范学院 杨 越
鞍山师范学院 李文华
鞍山师范学院 贾 佳

如何变成word的这种格式：
鞍山师范学院
陈绍亮 于 娜 陈 萌 杨 越 李文华 贾 佳

当然，数据好几万条，学校也很多个

EXCEL按学校排序

给你手写个VBA的吧,你在EXCEL里运行宏就行
如果你的是sheet1就放在sheet1里吧,代码如下

sub x()
dim r as integer ,c as integer
dim s as string,sn as string ,sx as string

r=2
c=1

sn = ""
sx =""
do
sx=cells(r,c)
if sx="" then exit do
if not sn = sx then
s = s & vbcrlf & sx & vbcrlf
sn=sx
endif

s= s & " " & cells(r,c+1)
r=r+1
loop

cells(r+1,c) =s '复制的语句一下想不起来,这是给个结果,你可以复制一下贴到WORD里,你可以引用word.app.. ,很简单的代码,我急着下,不写了,下次补上

end sub

Office编程嘛