[已解决]條件取值,d欄字串二行,如何變成一行

dou10801

條件取值,d欄字串原二行,如何轉換變成一行,請前輩指點,謝謝

最佳答案

月排行榜 / 总排行榜

哥儿-

2022-9-12 20:06

练习练习
Sub test()
    Dim dataArr, i%
    dataArr = ActiveSheet.[a1].CurrentRegion
    For i = 1 To UBound(dataArr)
        dataArr(i, 4) = Replace(dataArr(i, 4), Chr(10), "")
    Next
    ActiveSheet.[a1].CurrentRegion = dataArr
End Sub

跳转到最佳答案楼层

hasyh2008

Sub tt()
    Dim ar, r, k, str$
    Dim reg As Object
    Set reg = CreateObject("VBScript.RegExp")
    ar = ActiveSheet.[a1].CurrentRegion
    For r = 1 To UBound(ar)
        str = ar(r, 4)
        With reg
            .Global = False
            .Pattern = "\n"
            ar(r, 4) = .Replace(str, "")
        End With
    Next r
    ActiveSheet.[a1].CurrentRegion = ar
End Sub

哥儿-

练习练习
Sub test()
    Dim dataArr, i%
    dataArr = ActiveSheet.[a1].CurrentRegion
    For i = 1 To UBound(dataArr)
        dataArr(i, 4) = Replace(dataArr(i, 4), Chr(10), "")
    Next
    ActiveSheet.[a1].CurrentRegion = dataArr
End Sub

dou10801

hasyh2008 发表于 2022-9-12 12:23
Sub tt()
    Dim ar, r, k, str$
    Dim reg As Object

感謝hasyh2008先進指導,謝謝.