excel 循环语句

发布网友发布时间：2022-04-24 07:26

共3个回答

热心网友时间：2022-06-17 14:44

把一个范围中的数据一个个列到一起（中间用、隔开），忽略空单元格，两两相同的只取一个值。
不叫“忽略空单元格”，而是遇到空单元格就中止。

将代码改为：

Function MyMacro1(Mydate As Range) As String
Dim tt As String, isFirst As Boolean
isFirst = True
For Each m In Mydate
If isFirst Then
isFirst = False
tt = m.Value
MyMacro1 = tt
Else
If m.Value = "" Then
Exit Function
ElseIf m.Value <> tt Then
MyMacro1 = MyMacro1 & "、" & m.Value
End If
tt = m.Value
End If
Next m
End Function

只需要在一个单元格中输入：
=MyMacro1(B2:B11)
或 =MyMacro1(B:B)

GoodLuck!

热心网友时间：2022-06-17 14:44

=SUM(INDIRECT("C1:C"&MATCH(TRUE,C1:C100-C1>=3,)))
公式以CTRL+SHIFT+ENTER三键结束。

热心网友时间：2022-06-17 14:45

不用VBA也可以, 函数公式就能搞定.

=SUM(OFFSET(C1,,,MIN(IF(C2:C9-C1>=3,ROW(C2:C9),4^8))))追问不是到9啊。。
不定循环多少次啊

追答将范围改大一点:
=SUM(OFFSET(C1,,,MIN(IF(C2:C9999-C1>=3,ROW(C2:C9999),4^8))))
按CTRL+SHIFT+ENTER三键结束。