列数据整理

zllyyz

烦请大神指教请用VBA（使用SQL也行），谢谢：
列数据整理.zip (8.94 KB, 下载次数: 6)

2024-9-3 13:45 上传

点击文件名下载附件

limonet

Sub limonet()
    Dim Arr As Variant, Brr(1 To 9999, 1 To 1) As Variant, i%, j%, S
    Arr = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row + 1)
    For i = 1 To UBound(Arr)
        j = j + 2: S = Arr(i, 1)
        If S Like "*|*" Then
            Brr(j - 1, 1) = Split(S, "|")(0)
            Brr(j, 1) = CCur(Split(S, "|")(1))
        ElseIf i < UBound(Arr) Then
            If IsNumeric(Replace(Replace(Arr(i + 1, 1), "*", ""), "|", "")) Then
                Brr(j, 1) = CCur(Replace(Replace(Arr(i + 1, 1), "*", ""), "|", ""))
                i = i + 1
            Else
                Brr(j, 1) = 0
            End If
            Brr(j - 1, 1) = S
       End If
    Next i
    Range("B1").Resize(j) = Brr
End Sub

limonet

关键字：if

sdytsxd991122

zllyyz

limonet 发表于 2024-9-3 14:30
关键字：if

感谢大神，先去学习学习