返回列表下一主題上一主題發帖

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

alltest

中學生 Rank: 2

帖子: 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),"""")"

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

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

alltest