x = 1 'sheet1的坐标
n = 1 '排序值
y = 1 'sheet2的坐标
Sheet1.Activate
Do While Not Sheet1.Cells(x, 1) = ""
Do While Cells(x, 1) <> n
x = x + 1
Loop
Sheet2.Cells(y, 1) = Sheet1.Cells(x, 1)
y = y + 1
If n = 3 Then n = 1 Else n = n + 1:
x = x + 1
Loop
看不懂
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024