用VBA折分与合并

dgzwz · 发表于 2024-1-19 08:54

本帖最后由 dgzwz 于 2024-1-19 09:26 编辑

LOP-23-0225-0278-0309-0349-0374-0414-0522
折分成
LOP-23-0225
LOP-23-0278
LOP-23-0309
LOP-23-0349
LOP-23-0374
LOP-23-0414
LOP-23-0522

同样合并
LOP-23-0225
LOP-23-0278
LOP-23-0309
LOP-23-0349
LOP-23-0374
LOP-23-0414
LOP-23-0522

合并成
LOP-23-0225-0278-0309-0349-0374-0414-0522

ykcbf1100 · 发表于 2024-1-19 09:07

没有附件就发个图吧。

ljh16280 · 发表于 2024-1-19 09:09

Sub cf()
Dim arr, brr, i&
arr = Split([a1], "-")
ReDim brr(1 To UBound(arr) - 1)
For i = 2 To UBound(arr)
brr(i - 1) = arr(0) & "-" & arr(1) & "-" & arr(i)
Next
End Sub

limonet · 发表于 2024-1-19 09:30

LAMBDA函数可以

dgzwz · 发表于 2024-1-19 09:50

ykcbf1100 发表于 2024-1-19 09:07
没有附件就发个图吧。

请问是不是在excel2003中不能用

过客fppt · 发表于 2024-1-19 09:53

本帖最后由过客fppt 于 2024-1-19 09:54 编辑

Sub SplitAndMerge()
Dim inputString As String
Dim splitStrings As Variant
Dim mergedString As String
Dim i As Integer
' 获取输入字符串
inputString = "LOP-23-0225-0278-0309-0349-0374-0414-0522"
' 折分字符串
splitStrings = Split(inputString, "-")
' 输出折分结果
For i = LBound(splitStrings) To UBound(splitStrings)
Debug.Print "LOP-23-" & splitStrings(i)
Next i
' 合并字符串
For i = LBound(splitStrings) To UBound(splitStrings)
mergedString = mergedString & splitStrings(i)
If i < UBound(splitStrings) Then
mergedString = mergedString & "-"
End If
Next i
' 输出合并结果
Debug.Print mergedString
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-19 09:58

dgzwz 发表于 2024-1-19 09:50
请问是不是在excel2003中不能用

可以的。。。

dgzwz · 发表于 2024-1-19 10:27

ykcbf1100 发表于 2024-1-19 09:07
没有附件就发个图吧。

合并不了，运行程序没反应

LIUZHU · 发表于 2024-1-19 10:31

JSA代码参与下

LIUZHU · 发表于 2024-1-19 10:33

WPS测试下，Excel不行

		自动登录	找回密码
密码			免费注册

用VBA折分与合并

评分

评分