excell

Public Sub test()
Dim i, j As Integer
Dim province, value, province2, value2 As String

For i = 2 To Sheet2.UsedRange.Rows.Count
    province = Sheet2.Cells(i, 1)
    value = Sheet2.Cells(i, 4)
        
        If InStr(1, province, "省") > 0 Then
            Sheet5.Cells(i, 1) = Left(province, InStr(1, province, "省") - 1)
            Sheet5.Cells(i, 2) = value
        Else
            If InStr(1, province, " ") > 0 Then
            Sheet5.Cells(i, 1) = Left(province, InStr(1, province, " ") - 1)
            Sheet5.Cells(i, 2) = value
            
            Else
            
            Sheet5.Cells(i, 1) = province
            Sheet5.Cells(i, 2) = value
            End If
        End If
        
    
Next i

End Sub