各位老师好！！！VBA如何根据符号拆分数值，请老师帮忙看看。谢谢！！

13602822168 · 发表于 2024-8-22 16:55

本帖最后由 13602822168 于 2024-8-22 17:17 编辑

各位老师好！！！VBA如何根据符号拆分数值，请老师帮忙看看。谢谢！！

符号前后都要标出来。

shiruiqiang · 发表于 2024-8-22 17:02

正则或split，就是为啥最后一行的15要下移？

13602822168 · 发表于 2024-8-22 17:11

本帖最后由 13602822168 于 2024-8-22 17:18 编辑

shiruiqiang 发表于 2024-8-22 17:02
正则或split，就是为啥最后一行的15要下移？

那个是错的，不好意思！！
文件，图片已更新

ww87725244 · 发表于 2024-8-22 17:14

Sub aa()
Dim ar, i, ar1(), k
With Sheet1
ar = .Range("a16:j19")
ReDim ar1(1 To UBound(ar), 1 To 20)
For i = 1 To UBound(ar)
For k = 1 To UBound(ar, 2)
If ar(i, k) <> "" Then
ar1(i, k) = Split(ar(i, k), "-")(0)
ar1(i, 10 + k) = Split(ar(i, k), "-")(1)
Else
ar1(i, k) = ""
ar1(i, 10 + k) = ""
End If
Next
Next
.[l22].Resize(UBound(ar1), UBound(ar1, 2)) = ar1
End With
End Sub

复制代码

limonet · 发表于 2024-8-22 17:44

在上一贴中更改一下就可以。

shiruiqiang · 发表于 2024-8-22 17:45

本帖最后由 shiruiqiang 于 2024-8-22 17:46 编辑

13602822168 · 发表于 2024-8-22 18:02

shiruiqiang 发表于 2024-8-22 17:45

非常感谢！！！！

quqiyuan · 发表于 2024-8-22 18:14

参与一下，仅供参考。。。

quqiyuan · 发表于 2024-8-22 18:15

代码如下。。。
Sub test()
For i = 1 To 10
      x = Cells(Rows.Count, i).End(3).Row
      y = Application.Max(x, y)
Next
arr = Range("a1", Cells(y, 1)).Resize(, 10)
ReDim brr(1 To UBound(arr), 1 To 20)
For i = 2 To UBound(arr)
      For j = 1 To 10
         If InStr(arr(i, j), "-") Then
            brr(i, j) = Split(arr(i, j), "-")(0)
            brr(i, j + 10) = Split(arr(i, j), "-")(1)
         End If
      Next
Next
Beep
[l2].Resize(UBound(brr), 20) = brr
End Sub

gwjkkkkk · 发表于 2024-8-22 19:05

Option Explicit
Sub TEST2()
Dim ar, br, cr, i&, j&, k&

Application.ScreenUpdating = False

ar = [A16:J19].Value
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2) * 2)
For i = 1 To UBound(ar)
      For j = 1 To UBound(ar, 2)
         cr = Split(ar(i, j), "-")
         For k = 0 To UBound(cr)
            br(i, j + UBound(ar, 2) * k) = cr(k)
         Next k
      Next j
Next i

[L16].Resize(UBound(br), UBound(br, 2)) = br
Application.ScreenUpdating = True
Beep
End Sub

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

[求助] 各位老师好！！！VBA如何根据符号拆分数值，请老师帮忙看看。谢谢！！

评分

评分

评分