|||
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
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-5-23 17:18
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社