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

飞龙在天

<p>

游客，如果您要查看本帖隐藏内容请回复

</p><p>&nbsp;</p>

qixizhuzhi

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2008-7-22 15:21:27编辑过]

fzylx

学习，

ccsc006

Sub 作业8()<br/>Dim arr1<br/>Dim i As Integer, j As Integer<br/>Dim mrow As Integer<br/>j = 1<br/>arr1 = Split(Range("a81"), ",")<br/>For i = 0 To UBound(arr1)<br/>&nbsp;&nbsp;&nbsp; mrow = Range("b109").End(xlUp).Row + 1<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; If Right(arr1(i), 3) = "(女)" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(mrow, 2) = arr1(i)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(mrow, 1) = j<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; j = j + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(mrow, 2).Replace What:="(女)", Replacement:=""<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; <br/>Next<br/>End Sub

hkahai

穷人路过

LY728002

<p>看看答案,再学习!!!</p>

龙猫

[em01]

fssunnymen

<p>先顶一个来看看先</p>

fssunnymen

<p>Dim arr() As String, arr1() As String, arr2() As String<br/>Dim i As Integer<br/>arr = Split(Range("a1").Value, ",")<br/>arr1 = Filter(arr, "女", 1)<br/>For i = 0 To UBound(arr1)<br/>&nbsp;&nbsp;&nbsp; ReDim Preserve arr2(0 To 1, 0 To UBound(arr1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr2(1, i) = Left(arr1(i), Len(arr1(i)) - 3)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; arr2(0, i) = i + 1<br/>Next i<br/>[i6].Resize(UBound(arr1), 2) = Application.Transpose(arr2)<br/>End Sub</p>

望着天空女孩

<p>看看</p>