求助........

20011304

老师们求帮助：求将这样的数XY_AB_CD（均是两位数字，如06_07_00）如何变成XY年AB个月（只要前4个数字最后两个数字不要,如6年7个月），要求只要X=0、A=0、XY=00、AB=00的时候不出现（如06、07只能表示为6、7，就是正常的数值）谢谢！
     举几个数吧：06_07_01,6年7个月
                          12_07_00,12年7个月
                           06_11_05,6年11个月
                            00_01_05,1个月
                            06_00_03,6年
                            00_11_12,11个月
                            12_00_01,12年
                             12_11_00,12年11个月
出现的数值基本就是以上的例子了，不会出现00_00的情况，当A1单元格输入类似的数值时，可以在B1单元格实现转换，关键是两位数前面的0如何消除。

cesh1

不是很明白 麻烦上传附件   要VBA？还是函数？

FLY-VITAS

Sub test()

    Dim rng As Range
    On Error Resume Next
    Set rng = Application.InputBox("请选择要处理的数据区域", "指定数据", , , , , , 8)
    If Err <> 0 Then Exit Sub
        rng.TextToColumns Destination:=Range("AAR1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="_", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=TrueDim arr1, i As Integer, arr2(), js As Integer, outputrng As Range
    arr1 = Range("AAR1").CurrentRegion.Value
    For i = 1 To UBound(arr1)
            js = js + 1
            ReDim Preserve arr2(1 To 1, 1 To js)
        If CLng(arr1(i, 1)) > 0 Then
            If CLng(arr1(i, 2)) > 0 Then
                arr2(1, js) = "'" & arr1(i, 1) & "年" & arr1(i, 2) & "个月"
            Else
                arr2(1, js) = "'" & arr1(i, 1) & "年"
            End If
        Else
                arr2(1, js) = "'" & arr1(i, 2) & "个月"
End If
    Next i
    Set outputrng = Application.InputBox("请选择数据输出区域", "指定区域", , , , , , 8)
    If Err <> 0 Then Exit Sub
    outputrng(1).Resize(js, 1) = WorksheetFunction.Transpose(arr2)
     Range("AAR1").CurrentRegion.Clear
            
               
End Sub

FLY-VITAS

手机发的，格式不是很规整，希望对你有帮助