- 帖子
- 38
- 主題
- 13
- 精華
- 0
- 積分
- 84
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-12-10
- 最後登錄
- 2021-7-18
  
|
請教各位老師:
下列程序是以 F1~K1的任意數字為比對原始資料,N11~N15的任意數字若有與F1~K1的任意數字相同者,則分別在N4~N8顯示數字1 ,最後再加總於N1處.
Sub ZZ()
Set rng = [F1:K1]
For C = 14 To 24
Range(Cells(3, C), Cells(8, C)).Clear
Cells(1, C) = 0
For r = 11 To 15
If Application.CountIf(rng, Cells(r, C)) >= 1 Then
Cells(r - 7, C) = 1
Cells(1, C) = Cells(1, C) + 1
End If
Next r
Next C
End Sub
如附件---------------以上是之前請教大大的方法.
但是因為只需要將N11~N15的任意數字若有與F1~K1的任意數字相同者加總,顯示在N1處即可.
不需要分別在N4~N8顯示數字1,因為會增加 VBA 與內容的負擔.
所以想要在縮減程序,不知道行不行?謝謝 |
-
-
zz.rar
(6.76 KB)
|
發表於 2012-8-19 22:02
| 
