Question

VB编程 excel

程序：一组数据，先对其进行从小到大排序，正常所有数据都减掉15，特殊情况，如果相邻两个以上数据相差小于11，则小的数减掉10为这些数据的输出结果。例如 510 515 520 530 540 570完成后应为500 500 500 520 520 555，第一个数据510加10是520，510到520包括510 515 520 这三个数，用最小的数510减掉10是500，输出三个500：前三个数已经完成，下面第四个数530加10是540,530到540包括530,540两个数，所以输出530减掉10两个520；下面570加10是580，由于570到580只包括570，视为无连续数，则减掉15输出一个570减掉15是555.
1、第一个数据加上10形成数据段的10要做成变量，方便以后调节2、形成数据段后最小的数减掉的10也要为变量3、正常减掉的15也要为变量
能发做好后的表格形式的吗 我企鹅有箱 145-994-0217

Answer 1

Const C1 = 10 '连续数调整值
Const C2 = 15 '非连续数调整值
Const S = 10 '设定连续范围
Sub process()
Dim a, i!, j!, d!, n
Range("A1").Sort key1:=Range("A1"), order1:=xlAscending
a = WorksheetFunction.Transpose(Range("A1:A" & [A65536].End(xlUp).Row))
For i = 1 To UBound(a)
    d = a(i) + S
    For j = i To UBound(a)
        If j + 1 > UBound(a) Then Exit For
        If a(j + 1) > d Then Exit For
    Next
    If i = j Then '非连续数
        a(i) = a(i) - C2
    Else '连续数
        n = a(i) - C1
        For k = i To j
            a(k) = n
        Next
        i = j
    End If
Next
Range("B1").Resize(UBound(a)) = WorksheetFunction.Transpose(a)
End Sub

效果如图，可下载附件参考

Answer 2

'假如a数组存放你已经排好序的数据
for i=1 to ubond(a)
d=a(i)+10
for j=i+1 to ubond(a)
if a(j)>d then exit for
next j

if j=i+1 then '没有特殊情况
a(i)=a(i)-15
else
for k=i to j-1 '出现了特殊情况
a(k)=a(i)-10
next i
i=j-1
end if
next i