各位大佬们，VBA我有一个小问题，研究一上午也不太懂。

qiaokun426

我的目的是想实现PO在第二张表格搜索

然后筛选


最后将最小的日期复制到


我现在不知道如何变量筛选，如何将筛选排序后的第一个数值复制，因为筛选后的单元格位置也不是固定的。
没有学过VBA，只学过C，研究了一上午，不知道怎么办，有好心大佬可以办帮帮我吗？


谢谢大家，我已经自己搞定拉。
这是我的代码：
Sub 宏2()

'
     Dim ss, a


        a = ActiveCell.Row
        Range("B" & a).Select
        Set ss = Range("B" & a)
        Selection.Copy
        Sheet2.Select
        ActiveSheet.Range("$A$1:$I$9999").AutoFilter Field:=1, Criteria1:=ss.Value
        Const n = 2 '
        Do
        i = i + 1
        If Cells(i, 1).EntireRow.Hidden = False Then
            k = k + 1
        End If
        Loop Until k = 2
        Rows(i).Select
        Range("C" & i).Select
        Application.CutCopyMode = False
        ActiveWorkbook.Worksheets("数据库2").AutoFilter.Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("数据库2").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
            "C1:C11"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
            xlSortNormal
        With ActiveWorkbook.Worksheets("数据库2").AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
        End With



        Range("C" & i).Select
        Selection.Copy
        Sheet1.Select
        Range("I" & a).Select
        ActiveSheet.Paste

        Sheet2.Select
        Range("B" & i).Select
        Selection.Copy
        Sheet1.Select
        Range("H" & a).Select
        ActiveSheet.Paste

        Sheet2.Select
        Range("D" & i).Select
        Selection.Copy
        Sheet1.Select
        Range("J" & a).Select
        ActiveSheet.Paste

        Sheet2.Select
        Range("F" & i).Select
        Selection.Copy
        Sheet1.Select
        Range("K" & a).Select
        ActiveSheet.Paste
End Sub

qiaokun426

可以吗。。。 也不知道这里是否欢迎新人提问

changhong8

这个一个公式就可以了

NadrsSaber

Sub 按钮1_Click()

    Dim r1 As Long
    Dim r2 As Long
   
    Dim findR1 As Range
    Dim findR2 As Range
   
    Dim d1 As Date
    Dim d2 As Date
   
    r1 = Sheet1.Range("A50000").End(xlUp).Row
    r2 = Sheet2.Range("A50000").End(xlUp).Row

    For Each findR1 In Sheet1.Range("A2:A" & r1)
        d1 = "2030-1-1"
        For Each findR2 In Sheet2.Range("A2:A" & r2)
            If findR1 = findR2 Then
                d2 = findR2.Offset(0, 2).Value
                If d1 > d2 Then
                    findR1.Offset(0, 1) = d2
                    d1 = findR1.Offset(0, 1)
                End If
            End If
        Next
    Next

End Sub

看看是不是要这个意思..........

qiaokun426

NadrsSaber 发表于 2019-11-28 12:51
Sub 按钮1_Click()

    Dim r1 As Long

大哥你写这是什么呀

qiaokun426

Sub 宏1()
'
' 宏1 宏
'

'
    Dim ss, a, xun
   xun = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

   For w = 2 To xun
  
        Let a = w
        Range("B" & a).Select
        Set ss = Range("B" & a)
        Selection.Copy
        Sheets("数据库2").Select
        ActiveSheet.Range("$A$1:$C$11").AutoFilter Field:=1, Criteria1:=ss.Value
        Const n = 2 '
        Do
        i = i + 1
        If Cells(i, 1).EntireRow.Hidden = False Then  '循环时候这里报错 1004，单词运行没有错误
            k = k + 1
        End If
        Loop Until k = 2
        Rows(i).Select
        Range("C" & i).Select
        Application.CutCopyMode = False
        ActiveWorkbook.Worksheets("数据库2").AutoFilter.Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("数据库2").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
            "C1:C11"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
            xlSortNormal
        With ActiveWorkbook.Worksheets("数据库2").AutoFilter.Sort
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        Range("C" & i).Select
        Selection.Copy
        Sheets("11月CR单信息").Select
        Range("C" & a).Select
        ActiveSheet.Paste
         
        Next
   
End Sub


单次运行没有错，但是加了for循环就报错，头好痛

NadrsSaber

qiaokun426 发表于 2019-11-28 12:53
大哥你写这是什么呀

你不是要最小日期吗?

cjq253

公式就可以解决
把下面公式放到C2单元格，拉下去，OK!
IF(COUNTIF(数据库2!$A$1:$A$11,A2)>0,MINIFS(数据库2!$C$1:$C$11,数据库2!$A$1:$A$11,A2,数据库2!$B$1:$B$11,"<>"),"")

qiaokun426

谢谢大家 ！