求助VBA解决方案，想不出来呀~~

wodewan

Tim-tao 发表于 2019-11-16 17:37
此方法是否要保证第一个出现的内容，也就是B3单元格必须是所有出现的键值对名称，比如表格如果B3和B4单元 ...

兄弟，走心了，谢谢，当时大意了，m=1放错位置了，应放到For循环外面。附件已经更新，你测试下。谢了。

FOB_FN_L

tspliu 发表于 2019-11-6 16:39
Sub aa()
Set reg = CreateObject("Vbscript.Regexp")
    With reg

你这个似乎完不成楼主的功能吧

YZC51

学习下
Sub test()
arr = Sheet2.UsedRange
For i = 3 To UBound(arr)
    For J = 4 To 7
        S = arr(i, 2) & arr(2, J) & "： "
        A = Split(S, arr(2, J) & "：")
        B = Split(A(1), Chr(10))
        arr(i, J) = B(0)
    Next
Next
Sheet2.UsedRange = arr
End Sub

YZC51

或者
Sub test()
arr = Sheet2.UsedRange
For i = 3 To UBound(arr)
    s = arr(i, 2)
    If InStr(arr(i, 2), "楦型：") = 0 Then arr(i, 2) = "：" & Chr(10) & arr(i, 2)
    For j = 4 To 7
        a = Split(arr(i, 2), "：")
        arr(i, j) = Split(a(j - 3), Chr(10))(0)
    Next
    arr(i, 2) = s
Next
Sheet2.UsedRange = arr
End Sub

Tim-tao

wodewan 发表于 2019-11-16 20:23
兄弟，走心了，谢谢，当时大意了，m=1放错位置了，应放到For循环外面。附件已经更新，你测试下。谢了。

互相学习，我当时是觉得你的这个处理逻辑非常的好，而且基本功扎实，数组和字典的运用都相当的好，像你学习

blackttea1

学习啦，谢谢