跪求大神帮忙 ---使用数组方式编写vba代码

lantp123 · 发表于 2020-5-28 16:30

在A列中将最大数减去最小数大于等于7的一组数据依次放到d列，需得到结果如下：

leoparddi · 发表于 2020-5-28 16:39

自己判断最后一位减去最前面一位的值，与7进行比较，≥就写入数组，最后放到D1单元格。为啥必须要用数组呢

大灰狼1976 · 发表于 2020-5-28 16:41

数字是从小到大顺序排列的吗，每个单元格的数据个数都相同吗，如果是的话就很简单了。

lantp123 · 发表于 2020-5-28 16:47

大灰狼1976 发表于 2020-5-28 16:41
数字是从小到大顺序排列的吗，每个单元格的数据个数都相同吗，如果是的话就很简单了。

不是哦，我只是列举一个简单的，你要是可以话可以就这个简单的编写也可以，感谢

lantp123 · 发表于 2020-5-28 16:52

lantp123 发表于 2020-5-28 16:47
不是哦，我只是列举一个简单的，你要是可以话可以就这个简单的编写也可以，感谢

用arr = [a1].CurrentRegion 代表了a列有值单元格，其他的就不太懂怎么写下去了，求大神告知，新手

大灰狼1976 · 发表于 2020-5-28 16:56

如果就这个状态的话，简单的逻辑示例如下，但实际数据混乱的话，需要遍历找出最大值和最小值再判断。

复制代码

vb爱好者洗衣机 · 发表于 2020-5-28 16:57

看看合不合适。

lsdongjh · 发表于 2020-5-28 17:08

Function CheckStr(strVal As String, Optional intCheck As Integer = 7, Optional strChar As String = ",") As String
Dim strSplit() As String
Dim intVal() As Integer
Dim intID As Integer
strSplit = Split(strVal, strChar)
ReDim intVal(LBound(strSplit) To UBound(strSplit)) As Integer
For intID = LBound(strSplit) To UBound(strSplit)
intVal(intID) = Int(strSplit(intID))
Next
If Application.WorksheetFunction.Max(intVal) - Application.WorksheetFunction.Min(intVal) >= intCheck Then
CheckStr = strVal
Else
CheckStr = ""
End If
End Function
Sub Test()
Debug.Print CheckStr("0,3,5,7,9")
Debug.Print CheckStr("0，3，5，7，9", , "，")
End Sub

复制代码

lantp123 · 发表于 2020-5-28 17:09

vb爱好者洗衣机发表于 2020-5-28 16:57
看看合不合适。

可以，可以作下注释，不然有些语句真的看不懂，嘿嘿，感谢还有你这个找到的数据可以依次存放？

lantp123 · 发表于 2020-5-28 17:20

大灰狼1976 发表于 2020-5-28 16:56
如果就这个状态的话，简单的逻辑示例如下，但实际数据混乱的话，需要遍历找出最大值和最小值再判断。

将结果依次放入d列中，不是要输出显示yes

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

[求助] 跪求大神帮忙 ---使用数组方式编写vba代码