Select Case sType    '（integer）此处作为整形输入

   Case 1

       Sheet2.Cells(c1 + 2, 1) = s(i)

       c1 = c1 + 1

   Case 2

       Sheet2.Cells(c2 + 2, 2) = s(i)

       c2 = c2 + 1

   Case 3

       Sheet2.Cells(c3 + 2, 3) = s(i)

       c3 = c3 + 1

   Case 4

       Sheet2.Cells(c4 + 2, 4) = s(i)

       c4 = c4 + 1

   Case Else

       Sheet2.Cells(c0 + 2, 5) = s(i)

       c0 = c0 + 1

   End Select