您的位置首页百科问答

excel中如何使用公式或宏实现数据提取？

Simone 发布于 2023-09-04 12:55:20 582 阅读

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

标签:excel,或宏,公式