VB宏基本案例(6)

Sub getCode()
    Sheets("unicode").Select
    For j = 1 To Range("k1")
   
    If (Range("c" & j).Value <> "" And Range("f" & j).Value <> "") Then
        'Sheets("unicode").Range("k1").Value = j
        'Exit Sub
    Else
        codeStr = "U+" & Sheets("unicode").Range("B" & j).Value
       
            Set fin_cha = Worksheets("tempcode").Cells.Find(What:=codeStr, LookIn:=xlValues)
            If Not fin_cha Is Nothing Then
                'fin_cha = Right(fin_cha, InStr(fin_cha, Chr(34)) - 1)
                fin_cha = Left(fin_cha, InStr(fin_cha, "//") - 3)
                r_str = Len(fin_cha) - InStr(fin_cha, " " & chr(34) & "\") - 1
                fin_cha = Right(fin_cha, r_str)
                Sheets("code").Range("D" & j).Value = fin_cha
            Else
                Sheets("code").Range("D" & j).Value = "ﾃｻﾓﾐﾉ嵭ﾉ"
            End If
       
        Sheets("code").Range("A" & j).Value = Sheets("unicode").Range("A" & j).Value
        Sheets("code").Range("B" & j).Value = "'" & Sheets("unicode").Range("B" & j).Value
        Sheets("code").Range("C" & j).Value = Sheets("unicode").Range("C" & j).Value

       
    End If
    Next j
        Sheets("ﾋｵﾃ・).Select
End Sub