- 帖子
- 38
- 主題
- 13
- 精華
- 0
- 積分
- 84
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-12-10
- 最後登錄
- 2021-7-18
  
|
[發問] 請教老師:想將原本程序欄位的分析法,轉換為列位分析法
請教老師:
想將原本程序欄位的分析法,轉換為列位分析法
原本程序:
Sub yy()
For Each a In Range([M4], [M4].End(xlToRight))
mystr = "=SUMPRODUCT((COUNTIF($E$1:$I$1," & a.Resize(5, 1).Address & ")>0)*1)"
a.Offset(-3, 0) = Evaluate(mystr)
Next
End Sub
1.本程序以儲存格E1~I1 為比對目標值,M4~M8為一組,若與E1~I1 相同則在M1 填入數據1.有想同2數則填入數據2
2.本程序以儲存格E1~I1 為比對目標值,N4~N8為一組,若與E1~I1 相同則在N1 填入數據1.有想同2數則填入數據2
3.如今想轉換位置..希望轉換成
1.本程序以儲存格A5~A9 為比對目標值,D11~H11為一組,若與A5~A9 相同則在A11 填入數據1.有想同2數則填入數據2
2.本程序以儲存格A5~A9 為比對目標值,D12~H12為一組,若與A5~A9 相同則在A12 填入數據1.有想同2數則填入數據2
3.以此類推........
4.不知道該如何將原本的程序進行修改,請老師們幫忙.謝謝 |
-
-
xx.rar
(7.71 KB)
|