返回列表 上一主題 發帖

[發問] 請問大大~應該要如何改才不會有問題呢?

alltest

帖子
40 
主題
9 
精華
0 
積分
70 
點名
0  
作業系統
windows xp 
軟體版本
office xp 
閱讀權限
20 
註冊時間
2012-12-17 
最後登錄
2013-1-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-1-27 19:52 | 只看該作者

[發問] 請問大大~應該要如何改才不會有問題呢?

下面的程式,當遇到只有一列資料時,便會出現錯誤(一直跑無法停止)
如果資料大於一列資料時,便不會有問題
請問大大~應該要如何改才不會有問題呢?

  Range("A3", Range("A3").End(xlDown)).Offset(, 8) = _
                    "=IF((R[0]C2<>R[1]C2)*(COUNTIF(R3C2:R[20]C2,R[0]C2)>1),COUNTIF(R3C2:R[20]C2,R[0]C2),"""")"
收藏 分享

alltest

帖子
40 
主題
9 
精華
0 
積分
70 
點名
0  
作業系統
windows xp 
軟體版本
office xp 
閱讀權限
20 
註冊時間
2012-12-17 
最後登錄
2013-1-28 
4#
發表於 2013-1-28 11:22 | 只看該作者
回復 2# luhpro


    謝謝 luhpro 大大 的解答
  已經測試成功~感恩^^

TOP

alltest

帖子
40 
主題
9 
精華
0 
積分
70 
點名
0  
作業系統
windows xp 
軟體版本
office xp 
閱讀權限
20 
註冊時間
2012-12-17 
最後登錄
2013-1-28 
3#
發表於 2013-1-28 11:22 | 只看該作者
謝謝 luhpro 大大 的解答
已經測試成功~感恩^^

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2013-1-27 21:46 | 只看該作者
下面的程式,當遇到只有一列資料時,便會出現錯誤(一直跑無法停止)
如果資料大於一列資料時,便不會有問題
請 ...
alltest 發表於 2013-1-27 19:52


最簡單的方法就是用 If ... Then 包住以濾掉只有一列資料的情形 :
If Range("A4") <> "" then
  Range("A3", Range("A3").End(xlDown)).Offset(, 8) = _
                    "=IF((R[0]C2<>R[1]C2)*(COUNTIF(R3C2:R[20]C2,R[0]C2)>1),COUNTIF(R3C2:R[20]C2,R[0]C2),"""")"
End If

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題