excel 循环语句

答案:3 悬赏:10

解决时间 2021-01-13 10:07

提问者网友：浩歌待明月
2021-01-12 14:11

excel 循环语句

最佳答案

二级知识专家网友：醉吻情书
2021-01-12 15:12

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

将代码改为：

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!

全部回答

1楼网友：北城痞子
2021-01-12 16:15

不用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三键结束。

2楼网友：煞尾
2021-01-12 15:51

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！