Saya benar-benar baru di VBA jadi keahlian saya minimal. Saya memiliki tiga kolom A, B, C

Tujuan Saya: adalah mengulang Seluruh Kolom C dan mencari String Tertentu. jika sama maka saya ingin mengambil masing-masing baris termasuk (kolom A, B) dan menyimpannya di dalam (Lembar2) baris demi baris:

Ini yang sedang saya coba, mohon bantuannya.

 Sub FindString()
    Dim cell As Range
    Dim DataCount As Integer
    With Worksheets("Sheet1")
        DataCount = Range("L" & Rows.Count).End(xlUp).Row
        For Each cell In Range("C1:C" & DataCount)
            If InStr(cell.Value, "cmt") > 0 Then
                  MsgBox "The String is Found"
            End If
        Next cell
    End With
End Sub
2
Ahmed Mear 19 Agustus 2019, 22:55

1 menjawab

Jawaban Terbaik

Ada beberapa informasi yang hilang tetapi ini akan membuat Anda dekat. Karena Anda sudah tahu kapan string ditemukan, itu akan menyalin seluruh baris dan menempelkannya ke Sheet2. i ditambahkan untuk membantu mengulangi baris yang ditemukan sehingga tidak ditempelkan di atas satu sama lain tetapi itu dapat diubah.

Sub FindString()
Dim cell As Range
Dim DataCount As Integer
Dim i As Integer

i = 1
With Worksheets("Sheet1")
    'Changed to column C instead
    DataCount = Range("C" & Rows.Count).End(xlUp).Row

    For Each cell In Range("C1:C" & DataCount)
        If InStr(cell.Value, "cmt") > 0 Then
              MsgBox "The String is Found"
              Rows(cell.Row).Copy Sheets("Sheet2").Cells(i, 1)
              i = i + 1
        End If
    Next cell
End With
End Sub
1
TheJeebo 19 Agustus 2019, 20:32