跪求 提取符合条件数据到另一表格

calran

请教  1、从sheet2一堆数据中遍历符合数据差绝对值为2以内的数据，提取到sheet3中         2、在提取到sheet3的数据旁边空白行或列，标明对应数据是sheet2的哪个单元格选出，例如A3,B4

calran

跪求老师帮忙，诚为感激

jnsxmt

表述不清呀，谁也不会做，谁和谁和绝对值差2以内呀，做个样式看下

刘伶醉0

Sub 提取()
Dim wt As Worksheet
Dim i As Integer

Set wt = ThisWorkbook.Worksheets(2)
j = 1
For i = 1 To wt.UsedRange.Rows.Count
    If Abs(wt.Cells(i, 1).Value - wt.Cells(i, 2).Value) <= 2 Then
        ThisWorkbook.Worksheets(3).Cells(j, 1) = wt.Cells(i, 1)
        ThisWorkbook.Worksheets(3).Cells(j, 2) = wt.Cells(i, 2)
        ThisWorkbook.Worksheets(3).Cells(j, 3) = wt.Cells(i, 1).Address(0, 0) '里面输入0,0就会输出A1格式。还有xlA1和xlR1C1格式。
        ThisWorkbook.Worksheets(3).Cells(j, 4) = wt.Cells(i, 2).Address(0, 0)
        j = j + 1
    End If
Next
Set wt = Nothing

End Sub

calran

jnsxmt 发表于 2018-8-10 09:48
表述不清呀，谁也不会做，谁和谁和绝对值差2以内呀，做个样式看下

好的，不好意思哈，我再组织一下逻辑，好像有点模糊

calran

刘伶醉0 发表于 2018-8-10 10:04
Sub 提取()
Dim wt As Worksheet
Dim i As Integer

十分感谢老师，我先测试一下，可能我表述有点模糊，让您编写增加难度了，真不好意思哈，我是个新手，多多包涵