menggunakan VBA / makro untuk memasukkan sel jika menemukan teks/tanda tertentu

  1. 2 tahun lalu

    Aku punya sheet dengan 1500 baris dan kolom dari A ke EZ, setiap sel berisi data yang sangat beragam.
    Aku ingin menggunakan VBA untuk menemukan setiap sel yang memiliki tanda "/" dan jika ditemukan "/" akan menambahkan huruf "cm:" di depan isi sel.
    contoh:
    isi sel "rokok / marlboro" menjadi "cm: rokok / marlboro"
    atau
    isi sel "oral b / pasta gigi / sikat gigi" menjadi "cm: b lisan / pasta gigi / sikat gigi"

    tiap bantuan sangat dihargai dan terima kasih sebelumnya

  2. bisa pakai ini gan :

    file terlampir ya

    Sub RunMe()

    Dim lstrow, i
    lstrow = Sheets("Sheet1").Cells(Sheets("Sheet1").Range("B2:B9999").Rows.Count, "B").End(xlUp).Row 'change Range B2:B9999 and B and sheet1 as you need
    Range("B2").Select ' change B2 as you need * as a start pont

    For i = 1 To lstrow
    ActiveCell.Offset(1, 0).Select
    If InStr(1, ActiveCell.Value, "/") <> 0 Then '
    ActiveCell.Value = "cm: " & ActiveCell.Value
    End If

    Next i
    End Sub

  3. makasih gan

 

atau Mendaftar untuk ikut berdiskusi!