|
Dim b
xxx = ThisWorkbook.Sheets("序列转换").Range("A1048576").End(xlUp).Row
For aaa = 2 To xxx
a = Left(Cells(aaa, 1), Application.WorksheetFunction.Find("-", Cells(aaa, 1)) - 1)
b = Mid(Cells(aaa, 1), Application.WorksheetFunction.Find("-", Cells(aaa, 1)) + 1, 10)
c = Int(b) - Int(a)
For i = 1 To c
x = a + i
Z = Z & "," & x
Next
ThisWorkbook.Sheets("序列转换").Cells(aaa, 2).Value = a & Z
Z = ""
Next
End Sub
|
|