请教各位大神如何用VBA实现排除

思维百宝箱 · 发表于 2023-5-31 11:03

本帖最后由思维百宝箱于 2023-5-31 19:27 编辑

如图，在第4行到第8行分别有6个数（当然，实际上还有很多行），我想用VBA实现3个要求：
1、同一行6个数字里面，如果出现3个或以上连续的数字，排除该行，这是第一个VBA
2、同一行6个数字里面，如果出现5个或以上单数，排除该行，这是第二个VBA
3、同一行6个数字里面，如果出现5个或以上双数，排除该行，这是第三个VBA
同时，希望排除的行能直接删除该行，能实现吗？谢谢大神！

吴中泉 · 发表于 2023-5-31 11:21

请问什么是单数?什么是双数? 这指一位数或二位数吧

shiruiqiang · 发表于 2023-5-31 11:26

应该是mod 2的

71185843 · 发表于 2023-5-31 11:35

本帖最后由 71185843 于 2023-5-31 15:54 编辑

Option Explicit
Private Sub TestSub()
Dim i, j, m, n, rng As Range
Set rng = Sheet1.[G4:L8]
For i = rng.Rows.Count To 1 Step -1
m = 0: n = 0
For j = 1 To rng.Columns.Count
If rng.Cells(i, j) + 1 = rng.Cells(i, j + 1) And rng.Cells(i, j + 1) + 1 = rng.Cells(i, j + 2) Then
m = m + 1
End If
If rng.Cells(i, j) Mod 2 = 1 Then
n = n + 1
End If
Next
If m >= 1 Or n <= 1 Or n >= 5 Then rng.Rows(i).Delete
Next
End Sub

复制代码

不知道为什么 · 发表于 2023-5-31 11:43

吴中泉发表于 2023-5-31 11:21
请问什么是单数?什么是双数? 这指一位数或二位数吧

猜测是奇数偶数

不知道为什么 · 发表于 2023-5-31 11:46

如图参考。。。。

彼岸归航 · 发表于 2023-5-31 11:46

23好做，第一点有点抓脑袋

不知道为什么 · 发表于 2023-5-31 11:47

附件。。。。。。。。。

3333-R.zip (15.71 KB, 下载次数: 9)

吴中泉 · 发表于 2023-5-31 11:58

不知道为什么发表于 2023-5-31 11:47
附件。。。。。。。。。

二师兄好快啊,高产作家

不知道为什么 · 发表于 2023-5-31 13:43

吴中泉发表于 2023-5-31 11:58
二师兄好快啊,高产作家

哈哈，义务搬运工

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

[已解决] 请教各位大神如何用VBA实现排除

评分

评分