【V入2期】数组入门练习七

fzylx

学习。

ccsc006

<br/>Sub 作业7()<br/>Dim arr1<br/>Dim i As Integer<br/>&nbsp;<br/>arr1 = Split(Range("a54"), ",")<br/>For i = 0 To UBound(arr1)<br/>&nbsp;&nbsp; Cells(i + 58, 2) = arr1(i)<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp; If Right(arr1(i), 3) = "(女)" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(i + 58, 3) = "女"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(i + 58, 2).Replace What:="(女)", Replacement:=""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else: Cells(i + 58, 3) = "男"<br/>&nbsp;&nbsp; End If<br/>Next<br/>End Sub<br/>

hkahai

穷人路过

LY728002

<p>看看!!!</p>

龙猫

[em01]

ppplop

学习

小凡星星OK

[em01]

fssunnymen

<p>不会了,来学习一下了....</p>

望着天空女孩

看看

爱疯

[em11]