Sub ki504()
    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
    Sheets("Sheet2").Select
    jpn = Cells(i, 1)
    eng = Cells(i, 2)
    
    Sheets("Sheet1").Select
    Range(Cells(1, 1), Cells(end1, 1)) _
    .Replace What:=jpn, Replacement:=eng, LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, MatchByte:=False
    Range("A1").Select
Next
 Sheets("Sheet1").Select
End Sub
       
Sub ki504a()
Sheets("Sheet1").Range("C1:C30").Copy Sheets("Sheet1").Range("A1")
End Sub