Tìm kiếm chuỗi trong một văn bản ngồi trên 1 coulmn

Tôi rất mới về mã hóa VBA, tôi muốn có một số trợ giúp vì tôi đã cố gắng trong hai ngày, tôi đã sửa dữ liệu trong cột A, tôi muốn tìm kiếm một chuỗi trong cột đó, ví dụ: Ngày tuyên bố, nếu tìm thấy trích xuất ngày và tạo một cột mới trong trang tính tiếp theo2, đặt Ngày tuyên bố làm tiêu đề và 01/01/2008 như chi tiết, nối thêm lần xuất hiện tiếp theo nếu tìm thấy. Đây là đoạn mã newbie của tôi.

Sub testing44()
 Dim intPasteRow As Integer
    intPasteRow = 1
    Dim intRow As Integer
    Dim Found As Range, FirstFound As String


Sheets("Sheet1").Select
Columns("B:B").Select
On Error Resume Next
Selection.Find(What:="STATEMENT DATE *", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False).Activate

If Err.Number = 91 Then
    MsgBox "ERROR: 'STATEMENT DATE:' could not be found."
    End
End If


On Error Resume Next
Selection.Find(What:="INITIAL MARGIN", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False).Activate

If Err.Number = 91 Then
    MsgBox "ERROR: 'INITIAL MARGIN' could not be found."
    End
End If


intRow = ActiveCell.Row
Rows(intRow & ":" & intRow).Select
Selection.Copy

Sheets("Sheet2").Select
Range("A" & intPasteRow).Select
ActiveSheet.Paste

Sheets("Sheet2").Select
Rows(intRow + 1 & ":" & intRow).Select
End Sub

Nó không chính xác rõ ràng về những gì bạn đang cố gắng làm, nhưng dựa trên những gì bạn đã nói với chúng tôi cho đến nay, tôi có một số gợi ý cụ thể:

Khi tạo các trang tính mới từ dữ liệu hiện có, tôi thường 'bước' thông qua dữ liệu ban đầu trong một vòng lặp, tìm kiếm các đặc điểm tôi quan tâm, sau đó sao chép toàn bộ hàng (hoặc các ô cụ thể mà tôi quan tâm) sang trang tính mới hàng tại một thời điểm Điều không rõ ràng với tôi, chương trình của bạn sẽ tạo ra bao nhiêu tờ mới? Nếu có nhiều hơn hai, tôi khuyên bạn nên suy nghĩ lại về bài tập.

- điều này làm cho phần mềm của bạn đơn giản hơn nhiều để thực hiện

--consider tạo bảng đầu ra SINGLE. Thêm một cột cho "ngày tuyên bố", sau đó sử dụng lựa chọn "bộ lọc - bộ lọc tự động" để cho phép người dùng cuối của bạn chọn cho mình những gì.

Thật dễ dàng nếu dữ liệu bắt đầu dưới dạng hàng, thực hiện macro, tạo hàng làm đầu ra. Tôi sẽ nói, điều làm cho việc sao chép này trở nên khó khăn một chút là nếu các trường nhập dữ liệu cá nhân ban đầu ở định dạng chuỗi hoặc định dạng số.

Nếu bạn nhấn mạnh vào một trang tính mới cho mỗi "ngày tuyên bố" và bạn cần dữ liệu cột, thì như bước cuối cùng trong macro của bạn, hãy chuyển (các) hàng sang một cột