s=range("a1")
if left(s,1)="あ" then range("a1")=right(s,len(s)-1) & "A"