excel中如何使用公式或宏实现数据提取?
发布网友
发布时间：2022-04-25 11:43
共2个回答
热心网友
时间：2022-06-18 18:46
Option Explicit
Sub 宏1()
Dim arrA, arrD, iA, iD
'如果C列有内容，下面的两行需要修改为具体范围
arrA = Range("a1").CurrentRegion 'AB两列的有效数据
arrD = Range("d1").CurrentRegion 'DE两列的有效数据
For iD = 1 To UBound(arrD)
For iA = 1 To UBound(arrA)
If Abs(arrA(iA, 2) - arrD(iD, 2)) < 0.2 Then
arrD(iA, 1) = arrA(iA, 1)
Exit For
End If
Next iA
Next iD
'结果填表
Range("d1").CurrentRegion = arrD
End Sub
追问无法正常运行追答编译错误？运行错误？能否上图？
热心网友
时间：2022-06-18 18:46
D2=IF(B2-E2<0.2,B2,"")
