Excel宏查找指定值？

我有日期&時間B1列和D1列中的金額。Excel宏查找指定值？

我需要一個宏來搜索指定數量是否在我的工作表中，如果找到複製量以及日期到下一個工作表。發生多次事件。

如果包含搜索框會更好。

感謝

下面是我在網上找到了一個代碼工作正常，但在這裏它搜索單詞「郵箱」，也沒有可用的搜索框。子SearchForString（）

Dim LSearchRow As Integer 
Dim LCopyToRow As Integer 

On Error GoTo Err_Execute 

'Start search in row 4 
LSearchRow = 4 

'Start copying data to row 2 in Sheet2 (row counter variable) 
LCopyToRow = 2 

While Len(Range("A" & CStr(LSearchRow)).Value) > 0 

    'If value in column E = "Mail Box", copy entire row to Sheet2 
    If Range("E" & CStr(LSearchRow)).Value = "Mail Box" Then 

     'Select row in Sheet1 to copy 
     Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select 
     Selection.Copy 

     'Paste row into Sheet2 in next row 
     Sheets("Sheet2").Select 
     Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select 
     ActiveSheet.Paste 

     'Move counter to next row 
     LCopyToRow = LCopyToRow + 1 

     'Go back to Sheet1 to continue searching 
     Sheets("Sheet1").Select 

    End If 

    LSearchRow = LSearchRow + 1 

Wend 

'Position on cell A3 
Application.CutCopyMode = False 
Range("A3").Select 

MsgBox "All matching data has been copied." 

Exit Sub

Err_Execute： MSGBOX 「出現錯誤」。

末次

來源

2013-10-01 user2057099

你嘗試過什麼了嗎？任何我們可以看到的代碼示例？ –

你需要更具體，更清晰！你試過什麼了？ – Sylca

[**此鏈接**]（http://www.siddharthrout.com/2011/07/14/find-and-findnext-in-excel-vba/）會給你一個開始。 – Santosh

這裏是你可以適應：

Sub dural() 
    Dim s1 As Worksheet, s2 As Worksheet 
    Dim K As Long, N As Long, i As Long 
    Set s1 = Sheets("Sheet1") 
    Set s2 = Sheets("Sheet2") 
    K = 1 
    s1.Select 
    N = Cells(Rows.Count, "B").End(xlUp).Row 
    v = Application.InputBox(Prompt:="Enter value", Type:=1) 
    For i = 1 To N 
     If Cells(i, "D").Value = v Then 
      Cells(i, "B").Copy s2.Cells(K, "B") 
      Cells(i, "D").Copy s2.Cells(K, "D") 
     K = K + 1 
     End If 
    Next i 
End Sub

來源

2013-10-01 13:12:05

我試過使用這段代碼，但是搜索值沒有被複制到下一張紙上 – user2057099

Excel宏查找指定值？

回答

相關問題