请教各位大神如何提取符合条件的内容到sheet2

思维百宝箱 · 发表于 2023-2-15 23:32

本帖最后由思维百宝箱于 2023-2-16 09:59 编辑

具体说明一下：在D列和F列中，如果存在40～49的数字，则把该行的所有内容提取到sheet2，在sheet2的第3行开始，按顺序排列好，能实现吗？先谢过各位大神了！

清风竹- · 发表于 2023-2-16 08:25

数据提取出来了，不知如何排序，最好模拟一下。

LIUZHU · 发表于 2023-2-16 09:14

按顺序是指提取的顺序吗？

2801959927 · 发表于 2023-2-16 09:16

Option Explicit
Sub Main()
Dim arr, brr()
Dim i, j, tgt As Integer
Dim cond1, cond2 As Boolean
arr = Sheet1.Range("B3").CurrentRegion
For i = 1 To UBound(arr)
cond1 = (CInt(arr(i, 3)) >= 40) And (CInt(arr(i, 3)) <= 49)
cond2 = (CInt(arr(i, 5)) >= 40) And (CInt(arr(i, 5)) <= 49)
If cond1 Or cond2 Then
tgt = tgt + 1
ReDim Preserve brr(1 To 5, 1 To tgt)
For j = 1 To 5
brr(j, tgt) = arr(i, j)
Next j
End If
Next i
Sheet2.UsedRange.ClearContents
Sheet2.Range("A3").Resize(UBound(brr, 2), UBound(brr)) = WorksheetFunction.Transpose(brr)
Sheet2.Activate
MsgBox "程序运行完毕"
End Sub

复制代码

sxbjzjf110 · 发表于 2023-2-16 09:23

能提取出来，如何排序不明白。提取出来是变成一列，还是原来的一行？

LIUZHU · 发表于 2023-2-16 09:24

LIUZHU · 发表于 2023-2-16 09:25

附件，WPS打开测试

思维百宝箱 · 发表于 2023-2-16 09:48

本帖最后由思维百宝箱于 2023-2-16 09:59 编辑

LIUZHU 发表于 2023-2-16 09:25
附件，WPS打开测试

文件里面没有看到代码

我采取了上面那个人的脸，谢谢

sxbjzjf110 · 发表于 2023-2-16 11:42

参与一下，不知道是否符合要求

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

[已解决] 请教各位大神如何提取符合条件的内容到sheet2