用1半替换其全部

xing_chen

老师！有表，有2列，希望用其中1列中的单元格1半，替换另1列中的全部单元格。敬请老师赐教，谢谢

liulang0808

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

全党

shishi看看是不是这样了

全党

liulang0808 发表于 2023-3-30 07:13
。。。。。。。。。。。。。。。。

你的思路总是能指导到我，感谢。我怎么就没想到用split呢

liulang0808

全党 发表于 2023-3-30 07:44
你的思路总是能指导到我，感谢。我怎么就没想到用split呢

看个人习惯吧，也可以使用mid这类的

tiger1976

Sub lll()

    Dim arr
    Dim i As Integer
   
    arr = Range("b2:d7")
   
    For i = 1 To UBound(arr)
        If Len(arr(i, 3)) <= 7 Then
            Range("b" & i + 1) = Mid(arr(i, 3), 4, 10)
            Range("d" & i + 1) = ""
        End If
    Next


End Sub

ykcbf1100

附件供参考。。。

xing_chen

liulang0808 发表于 2023-3-30 07:13
。。。。。。。。。。。。。。。。

谢谢老师！运行如愿！

xing_chen

全党 发表于 2023-3-30 07:41
shishi看看是不是这样了

谢谢老师！运行如愿！

xing_chen

tiger1976 发表于 2023-3-30 08:08
Sub lll()

    Dim arr

谢谢老师！运行如愿！