在单元格区域里有连续的数字，就显示

dsmch · 发表于 2011-4-21 11:25

Dim rng As Range
Set rng = Range("c3:h" & Range("h65536").End(xlUp).Row)
For i = 3 To rng.Rows.Count + 2
s = 8
For j = 3 To 8
Set c = Range(Cells(i, 3), Cells(i, 8)).Find(Cells(i, j) + 1, lookat:=xlWhole)
If Not c Is Nothing Then s = s + 2: Cells(i, s - 1) = Cells(i, j): Cells(i, s) = c
Next j
Next i

wangg913 · 发表于 2011-4-21 18:54

=SUBSTITUTE(TEXT(SUM(LARGE(IF(FREQUENCY(IF(COUNTIF(A1:F1,A1:F1+{1;-1}),A1:F1+{1;-1}),ROW($1:$40)),ROW($1:$40),99),ROW($36:$41))*100^ROW($1:$6))%,REPT("00 ",6)),"99 ",)

数组公式

[ 本帖最后由 wangg913 于 2011-4-21 18:55 编辑 ]

Moneky · 发表于 2011-4-21 23:58

原帖由 wangg913 于 2011-4-21 18:54 发表
=SUBSTITUTE(TEXT(SUM(LARGE(IF(FREQUENCY(IF(COUNTIF(A1:F1,A1:F1+{1;-1}),A1:F1+{1;-1}),ROW($1:$40)),ROW($1:$40),99),ROW($36:$41))*100^ROW($1:$6))%,REPT("00 ",6)),"99 ",)

数组公式

打死也学不会数组公式

，悟空的师弟与版主真强人！

悟空师弟 · 发表于 2011-4-25 10:14

数组公式：=MID(SUBSTITUTE(SUBSTITUTE(TEXT(SUM(SMALL(IF((MATCH(A1:F1,A1:F1,)=COLUMN(A:F))*(COUNTIF(A1:F1,A1:F1+1)+COUNTIF(A1:F1,A1:F1-1)),A1:F1,99),ROW($1:$6))*10^(12-ROW($1:$6)*2)),REPT(" 00",6))," 99",)," 0"," "),2,99)

连续数字.rar (3.99 KB, 下载次数: 5)

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

[求助] 在单元格区域里有连续的数字，就显示