首页 办公技巧Excel教程正文

VBA代码实例:利用excel截取相关字符串

云水 Excel教程 2020-03-04 10:20:53 2435 0 VBA

一大串数据源,想要截取整理成自己想要格式,可以利用VBA编程实现。

图片1.png

利用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(本站不支持其他投诉反馈渠道,谢谢合作)

本文链接:http://apod.cc/index.php/post/271.html

发表评论

评论列表(0人评论 , 2435人围观)
☹还没有评论,来说两句吧...