excel如何快速分行 vba代码实现一键完成
sub test（）
dim sArr（1 to 1000,1 to 2） as string
‘第一步读取数据
hh=2
do while cells（hh ， 1）<>""
sarr(hh-1,1)=cells(hh,1).text
sarr(hh-1,2)=cells(hh,2).text
loop
‘第二步：输出结果
hh=2
for i=1 to hh-1
brr=split(sarr(i,1)
for j=0 to ubound(brr)
cells(hh,3)=brr(j):cells(hh,4)=sarr(i,2)
hh=hh+1
next j
next i
end sub
注：该程序随手写的 ， 未经测试
有问题请联系我吧
推荐阅读
- 电脑知识|骨质疏松怎么办，骨质疏松护理ppt
- 电脑知识|word文档怎么加密，2007word文档加密如何设置
- 电脑知识|ppt怎么插入背景，ppt怎么调图片背景透明
- 电脑知识|打印机打不了怎么办，打印机无法打印怎么回事?
- 电脑知识|打印机没反应怎么回事，打印机没有动静是怎么回事
- 电脑知识|怎么取消页眉页脚，word2019删除当前页页眉
- 电脑知识|wps怎么加横线，wps怎么加填空横线
- 电脑知识|wps怎么加水印，wps如何添加水印文字
- 电脑知识|word图片怎么旋转，在文档里面怎么旋转图片
- 电脑知识|电脑怎样联网，别人发远程在电脑怎么接收