单元格内容处理合并

天地一相

感谢帮助！详见截图附件。

liulang0808

Sub 按钮1_Click()
    r = Cells(Rows.Count, "i").End(3).Row
    arr = [i1].Resize(r)
    For j = 1 To UBound(arr)
        If Len(arr(j, 1)) > 0 Then
            If InStr(arr(j, 1), "+") > 0 Then
                brr = Split(arr(j, 1), "+")
                brr(1) = Trim(brr(1))
                If Val(brr(1)) >= 10 Then
                    brr(1) = Val(brr(1)) - 10
                End If
                arr(j, 1) = "'" & Replace(brr(0), " ", "") & brr(1)
            Else
                arr(j, 1) = "'" & Replace(arr(j, 1), " ", "")
            End If
        End If
    Next j
    [k1].Resize(r) = arr
End Sub

liulang0808

。。。。。。。。。。。。。。

天地一相

liulang0808 发表于 2023-1-9 09:23
。。。。。。。。。。。。。。

早，谢谢。测试正确。

Hontyu

      

tanglf188

Sub practice()
    For i = 3 To Range("I" & Rows.Count).End(xlUp).Row
        st = "A" & Sheet1.Cells(i, "I")
        st = Replace(st, " ", "", 1, -1, 1)
        ip = InStr(st, "+")
        If ip > 0 Then
            bstr = Mid(st, 1, ip - 1)
            estr = Mid(st, ip + 1, Len(st))
            If i = 3 Then MsgBox bstr
            If Len(estr) > 1 Then
                estr = Trim(Str(estr - 10))
            Else
                estr = Trim(Str(estr))
            End If
            Sheet1.Cells(i, "K") = "'" & Replace(bstr & estr, "A", "", 1, -1, 1) '要在原位置覆盖，把"K"改为"I"
        End If
    Next
End Sub