Excel VBA用于复制匹配条件单元格并根据不同工作表中的条件粘贴到特定单元格中

1 回答

• 0

  我试过下面的代码但是当找到匹配时我无法得到匹配的行号（对于K =） .

  Sub match()
   Dim s1 As Worksheet, s2 As Worksheet
   Dim I As Long, J As Long, K As Long, L As Long, M As Long, NewName As String, NewValue As String
    
   Set s1 = Sheets("Report")
   Set s2 = Sheets("Sheet1")
   K = 1
   M = 1
   I = s1.Cells(Rows.Count, "A").End(xlUp).Row
   L = s2.Cells(Rows.Count, "A").End(xlUp).Row
  
   For M = 2 To L
   
      If s2.Cells(M, "F").Value = "st1 CLOSE" Then
          NewName = s2.Cells(M, "B").Value
                    
          For K = 2 To I
          
              If s1.Cells(K, "K").Value = "OFFNRMPR" And s1.Cells(K, "A").Value = NewName Then
                  s1.Cells(K, "L").Copy s2.Cells(M, "L").Value
                  Exit For
              Else: s2.Cells(M, "L").Value = "N/A"
                  Exit For
              End If
          Next
      End If
   Next
  End Sub
  

  回复于 2024-04-29T13:30:33+08:00