sub demo()
a=[a1].Currentregion
for i=1 to ubound(a)
If right(a(i,1),1)="、" then
a(i,1)=left(a(i,1),len(a(i,1))-1)
End if
next
[a1].resize(i-1)=a
End sub
sub demo()
a=[a1].Currentregion
for i=1 to ubound(a)
If right(a(i,1),1)="、" then
a(i,1)=left(a(i,1),len(a(i,1))-1)
End if
next
[a1].resize(i-1)=a
End sub