vba字符串按长度分行

最新推荐文章于 2025-02-07 08:48:55 发布

leopeng_0330

最新推荐文章于 2025-02-07 08:48:55 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： VBA 字符串处理字符串分成行

本文链接：https://blog.youkuaiyun.com/leopeng_0330/article/details/103103982

这篇博客介绍了一个VBA的实现，用于将长字符串按照指定长度拆分为多行。通过`SplitToLine`函数，可以将字符串`sourceStr`按照长度`lineCount`进行切分，并存储到数组`ary`中。`ArrayAdd`函数用于动态扩展数组并添加新值，`IsVariantEmpty`函数检查数组是否为空。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Test()

Dim sourceStr As String
sourceStr = "1234567891234567891"

Dim length As Integer
length = Len(sourceStr)

Dim ary() As String
ary = SplitToLine(sourceStr, 9)
End Sub

Public Function SplitToLine(ByVal sourceStr As String, ByVal lineCount As Integer) As Variant
Dim seeker As Long
seeker = 1
Dim ary() As String
Do
If seeker + lineCount <= Len(sourceStr) Then
ArrayAdd ary, Mid(sourceStr, seeker, lineCount)
seeker = seeker + lineCount
Else
ArrayAdd ary, Mid(sourceStr, seeker, Len(sourceStr) - seeker + 1)
&nb