※ 引述《LiLiHsien ()》之铭言： : 'for(int i = 0 ;i < array_A的阵列大小 ; i++) : For i = 1 To 25 : 'if(i!=0) : If i <> 0 Then : 'if(array_A[i] == NULL) : If Cells(i, 1).Value = "" Then : 'array_B[i] = Array_A[i-1] : Cells(i, 2) = Cells(i - 1, 1) : Else : 'array_B[i] = Array_A[1] : Cells(i, 2) = Cells(i, 1) : End If : Else : 'array_B[i] = Array_A[1] : Cells(i, 2) = Cells(i, 1) : End If : Next : 以上是我更改大大提供的程式码 : 不过他在A列空值的状况只能印出两个 : 且不能达到我有两个同一类需求的时候 : A B : 1 dog dog : 2 cat cat1 : 3 cat1 : 4 cat cat2 : 5 cat2 : 6 bird bird : 7 bird : 8 bird : 9 bird : A的原有的 , 我想产生B列 : 若如果A的类别只有一种(dog) , 则B只会依序印出dog : 但如果A的类别重复(cat有两个) , 则B会列出cat1,cat1 : 等碰到A列的另一个cat , B在继续印出cat2,cat2..... : 不知这该如何表示 : 麻烦大大提供一些意见 谢谢 : ) A列空值只能印出两个 应该是因为笔误 改成 Cells(i, 2) = Cells(i - 1, 2) 抓B列上面一个值就可以 至於你的问题要判断A列是否有重复就比较复杂 我自己习惯 [也许有更快的做法] 会先弄出一个阵列 把有重复的项目存起来 然後填B列的时候 跟存在记忆体中的阵列比对 决定後面要不要加数字 另外还要开一个变数 用来决定後面要加的值是1 or 2 or 3 要达到你所有要求 整个写下来程式码并不短 以上拙见 ======附录======== '**********读取A列重复项目为y()阵列************ m = 0 For i = 1 To 35 If Cells(i, 1).Value <> "" Then If m > 0 Then If y(m - 1) <> Cells(i, 1).Value Then y(m - 1) = Cells(i, 1).Value Else y(m) = Cells(i, 1).Value m = m + 1 End If Else y(m) = Cells(i, 1).Value m = m + 1 End If End If Next i '***********暂存变数归零********** j = 0 r = 0 x = "" '***********判断B列该填写的内容********* For i = 1 To 35 If i = 1 Then '***B1格要拉出来另外写 因为如果A1空的 并不存在B0这个值*** If Cells(1, 1) <> "" Then For n = 0 To m - 2 If Cells(1, 1).Value = y(n) Then Cells(1, 2).Value = Cells(1, 1).Value + Str(1) j = 1 x = Cells(1, 1).Value + Str(j) ElseIf r = 0 Then Cells(1, 2).Value = Cells(1, 1).Value x = Cells(1, 1).Value End If r = 1 Next n End If Else '***处理B2之後*** r = 0 If Cells(i, 1).Value = "" Then '***A(i)格空白*** Cells(i, 2).Value = Cells(i-1, 2).Value Else '***A(i)格有值*** For n = 0 To m - 2 '***比对A(i)与记忆体的y阵列*** If Cells(i, 1).Value = y(n) Then r = 1 Next n If r = 1 Then '***A(i)存在於阵列中*** If Cells(i, 1).Value + Str(j) <> x Then j = 0 j = j + 1 Cells(i, 2).Value = Cells(i, 1).Value + Str(j) x = Cells(i, 1).Value + Str(j) Else '***A(i)不存在阵列中*** Cells(i, 2).Value = Cells(i, 1).Value x = Cells(i, 1).Value j = 0 End If End If End If Next i --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 152.7.224.5 ※ 编辑: hsnu920 来自: 152.7.224.5 (10/17 03:49)