vba字符串按长度分行

VBA实现字符串按长度分行

最新推荐文章于 2024-12-19 20:11:57 发布

原创

最新推荐文章于 2024-12-19 20:11:57 发布 · 1.3k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#VBA #字符串处理 #字符串分成行

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

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