怎么将这些数放入对应的vba 给单元格输入公式，公式怎么输

来源：蜘蛛抓取(WebSpider) 时间：2017-08-10 12:02 标签： vba 单元格输入公式
查看: 1904|回复: 12
如何将一个单元格的内容拆成几个，且单元格后面的数对应填充
阅读权限10
在线时间 小时
各位大侠请教个问题，如下所示，左边是原始效果，想要达到的效果如右图。谢谢各位！
(2.9 KB, 下载次数: 71)
14:59 上传
(4.17 KB, 下载次数: 75)
14:59 上传
14:58 上传
点击文件名下载附件
5.89 KB, 下载次数: 55
阅读权限95
在线时间 小时
Private Sub CommandButton1_Click()
& & Dim arrInfo As Variant, arrRt As Variant
& & Dim i As Long, j As Long, count As Long
& & Range(Cells(2, &G&), Cells(Rows.count, &H&)).Clear
& & ReDim arrRt(1 To 60000, 1 To 2)
& & arrInfo = Range(Cells(2, &C&), Cells(Rows.count, &D&).End(3))
& & For i = 1 To UBound(arrInfo, 1)
& && &&&For j = 0 To UBound(Split(arrInfo(i, 1), &/&))
& && && && &count = count + 1
& && && && &arrRt(count, 1) = Split(arrInfo(i, 1), &/&)(j)
& && && && &arrRt(count, 2) = arrInfo(i, 2)
& && &&&Next
& & Next
& & Cells(2, &G&).Resize(UBound(arrRt, 1), 2) = arrRt
End Sub
复制代码
阅读权限100
在线时间 小时
如果不接受用VBA，用基础操作也蛮快的。
1，复制到WORD，把/替换为^p
2,黏贴回EXCEL，定位空值填充下。
阅读权限95
在线时间 小时
参考附件：
15:14 上传
点击文件名下载附件
16.26 KB, 下载次数: 27
阅读权限100
在线时间 小时
基础操作动画：
11.gif (1.12 MB, 下载次数: 54)
15:16 上传
阅读权限10
在线时间 小时
基础操作动画：
搜嘎！！好巧妙！明白了！！谢谢您！！
阅读权限70
在线时间 小时
本帖最后由 hcm19522 于
16:24 编辑
(先設)K2:K4=(LEN(C2)+1)/2
J2:J4=SUM(K$1:K1)+1
L2:L4=SUM(K$1:K1)
M2:M4設 1 ,2
O2:O13=IF(ROW(A1)&SUM(K$2:K$3),&&,MID(SUBSTITUTE(OFFSET(C$1,VLOOKUP(ROW(A1),J$2:M$3,4,TRUE),),&/&,),ROW(A1)-VLOOKUP(ROW(A1),J$2:M$3,3,TRUE),1))
P2:P13=IF(O2=&&,&&,OFFSET(D$1,VLOOKUP(ROW(A1),J$2:M$3,4,TRUE),))
(13.41 KB, 下载次数: 70)
16:23 上传
阅读权限70
在线时间 小时
人名销量　甲/乙/丙<font color="#0<font color="#A/B/C/D<font color="#0<font color="#G<font color="#0<font color="#　　<font color="#
Ｅ２：下拉至資料下一格
=IF(ROW(A1)=1,0,LEN(C1)-LEN(SUBSTITUTE(C1,&/&,))+(C1&&&&)+E1)
=TRIM(MID(SUBSTITUTE(LOOKUP(ROW(A1)-1,E:E,C:C),&/&,REPT(& &,99)),(ROW(A1)-LOOKUP(ROW(A1)-1,E:E))*99-98,99))
=IF(G2=&&,&&,LOOKUP(ROW(A1)-1,E:E,D:D))
阅读权限30
在线时间 小时
基础操作动画：
请问，你替换框的^p是怎么弄进去的，能说说吗，谢谢啊
阅读权限100
在线时间 小时
& & & & & & & &
请问，你替换框的^p是怎么弄进去的，能说说吗，谢谢啊
就是输入一个^(SHIFT+横排6），再输入一个字母p
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 vba 单元格输入公式 的文章

 

随机推荐