Hi Freddy,

Copy angka ke kolom A, mulai dari A1.
Jalankan macro berikut ini:
Sub Ubah()
    Dim n As Range, x As Range
    Set n = Range("A1", Range("A1").End(xlDown))
    For Each x In n
        If x <> 1 Then x = 10000
    Next x
End Sub

Salam,
HK



________________________________
 From: freddy heru soermin <[email protected]>
To: "[email protected]" <[email protected]> 
Sent: Tuesday, 14 May 2013, 14:21
Subject: [belajar-excel] replace nilai di sebagian sel
 


  
hai admin/exceler. 

mohon bantuannya donk untuk data berikut bisa ga dibuat macronya. saya mau meng 
replace yang bukan angka "1" dengan "10.000" 

9204 
9840 
1 
9840 
8487 
1 
1 
7978 
5621 

terima kasih sebelumnya. 

Freddy 
 

Kirim email ke