一大串数据源,想要截取整理成自己想要格式,可以利用VBA编程实现。
利用VBA实现的程序如下:
Sub jisuan() Dim i As Integer Dim k As Integer i = 1 Do Until i = 2500 For k = 4 To 12 Step 1 If (Left((Right(Sheet1.Cells(2 * i, 1), k)), 1) = ",") Then Sheet2.Cells(i, 1) = Right(Sheet1.Cells(2 * i, 1), k - 1) & "," & Sheet1.Cells(2 * i + 1, 1) k = 4 Exit For End If Next k i = i + 1 Loop End Sub
欢迎大家一起来交流!
版权声明
1.本站大部分下载资源收集于网络,不保证其完整性以及安全性,请下载后自行测试。
2.本站资源仅供学习和交流使用,版权归资源原作者所有,请在下载后24小时之内自觉删除。
3.若作商业用途,请购买正版,由于未及时购买和付费发生的侵权行为,与本站无关。
4.若内容涉及侵权或违法信息,请联系本站管理员进行下架处理,邮箱ganice520@163.com(本站不支持其他投诉反馈渠道,谢谢合作)
- 上一篇: 骡马盒子搭建详细教程
- 下一篇: 基于Xposed+DumpDex的apk快速脱壳方法
发表评论