Sub ki505()
Dim dat(1, 100) As String

    Sheets("Sheet1").Select
    Application.ScreenUpdating = False
        ActiveCell.SpecialCells(xlLastCell).Select
        end1 = ActiveCell.Row
        
     Sheets("Sheet2").Select
        ActiveCell.SpecialCells(xlLastCell).Select
        end2 = ActiveCell.Row
        For i = 1 To end2
            dat(0, i) = Cells(i, 1)
            dat(1, i) = Cells(i, 2)
        Next
        
 Sheets("Sheet1").Select
For i = 1 To end2
    Range(Cells(1, 1), Cells(end1, 1)) _
    .Replace What:=dat(0, i), Replacement:=dat(1, i), LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, MatchByte:=False
    Range("A1").Select
Next

End Sub
       
Sub ki505a()
Sheets("Sheet1").Range("C1:C30").Copy Sheets("Sheet1").Range("A1")
End Sub