首页->【软件工具包使用(SW/Software Tools Usage)】

12 1

Public Sub split_App()


        Dim PinName As String

        Dim sPinName() As String

        

        Dim ChMap As String

        Dim sChMap() As String

        

        Dim i  As Integer

        

        

        Sheet3.Activate

        

        PinName = Cells(47, 1).Value

        sPinName = Split(PinName, "/")

        

        Cells(47, 1).Value = sPinName(0)

        Cells(83, 1).Value = sPinName(1)

        

        For i = 2 To 9

        

            ChMap = Cells(47, i).Value

            sChMap = Split(ChMap, ",")

        

            Cells(47, i).Value = sChMap(0)

            Cells(83, i).Value = sChMap(1)

        Next i

        

End Sub


楼主可见

  1. shwnyoo 1#

    ***此内容已隐藏,只有楼主可见***