Find and Replace Multiple Values

Oleh SDN BENDUNGAN HILIR 05 PAGI

Tuesday 18 October 2016

Bagikan :

Tweet

Multiple Values Find and Replace pada Excel

Siapkan sheet tambahan yang berisi data cell asal dan cell pengganti dalam satu workbook yang sama

tekan Alt + F11

PILIH INSERT - MODULE
DAN COPY PASTEKAN SCRIPT BERIKUT

Sub MultiFindNReplace()
'Update 20140722
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "DoblangToolsForExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub


TEKAN F5 DAN IKUTI LANGKAH DALAM VIDEO BERIKUT



pertama, pilih range cell yang akan diganti;

lanjut, pilih 2 kolom range data awal dan data pengganti (perubahan);

pilih/blok cell yang akan diganti - OK - pilih daftar pengganti - OK
walaaaa..berapa pun jumlah data anda akan tergantikan sesuai keinginan anda..

"Jika bisa dilakukan massal kenapa harus satu persatu, kita ini kerja bukannya dikerjain"

maaf kalo bahasanya campur aduk, maklum hanya operator jelata.

Tag : Find and Replace, Multiple Find and Replace, trik excel