各个连续区域的内部数字排序

JLxiangwei · 发表于 2011-5-26 22:46

本帖最后由 JLxiangwei 于 2011-5-27 08:45 编辑

回复兰色幻想的帖子

=IF(A1:A18="","",MOD(SMALL(COUNTIF(INDIRECT("A1:A"&ROW(1:18)),"=")/1%%+A1:A18,ROW()),10^4))

复制代码

gdgzlyh · 发表于 2011-5-27 00:54

Sub Temp()
Dim arr1, arr2, intRowW As Integer, intRowL, intRowA As Integer
With Sheet1
      intRowA = 1
      Do While intRowA < .Range("A65536").End(xlUp).Row
         If .Range("A" & intRowA) <> "" Then
            If .Range("A" & intRowA + 1) <> "" Then
                  intRowL = .Range("A" & intRowA).End(xlDown).Row
                  ReDim arr1(1 To intRowL - intRowA + 1), arr2(1 To intRowL - intRowA + 1, 1 To 1)
                  arr1 = .Range("A" & intRowA & ":A" & intRowL)
                  For intRowW = LBound(arr1) To UBound(arr1)
                     arr2(intRowW, 1) = WorksheetFunction.Small(arr1, intRowW)
                  Next intRowW
                  .Range("A" & intRowA).Resize(UBound(arr1)) = arr2
                  intRowA = intRowL + 1
            Else
                  intRowA = intRowA + 1
            End If
         Else
            intRowA = intRowA + 1
         End If
      Loop
End With
End Sub

岁寒三友 · 发表于 2011-5-27 08:39

游客，如果您要查看本帖隐藏内容请回复

lisachen · 发表于 2011-5-27 10:28

本帖最后由 lisachen 于 2011-5-27 11:42 编辑

又学了一招感谢向伟师兄提示

=IF(A1:A18="","",MOD(SMALL(COUNTIF(INDIRECT("A1:A"&ROW(1:18)),"=")*100+A1:A18,ROW()),100))

复制代码

pcxangle · 发表于 2011-5-29 17:23

学习，收藏

环溪人家 · 发表于 2011-5-29 18:59

不简单啊，谢谢

vbyou127 · 发表于 2016-2-18 13:30

dfdfdf

		自动登录	找回密码
密码			注册

各个连续区域的内部数字排序

评分

本帖子中包含更多资源