謝謝 ICLA 兄的點醒,我終於成功了
原來問題是出在我的 For loop,改了一下就 ok 了
雖然不知道這對其他網友有無幫助,我還是把成功後的 code 貼出來吧:
語法:
Sub ChkLength()
Dim s As String
Dim r, rs, c As Long
With ActiveWindow.RangeSelection
r = .Row
c = .Column
rs = .Rows.Count
cs = .Columns.Count
End With
On Error GoTo e
For rw = r To rs + r - 1
For cl = c To cs + c - 1
If Not TypeName(Cells(rw, cl).Value) Like "Error*" Then
s = s + CStr(Cells(rw, cl))
End If
Next cl
Next rw
MsgBox "Total length: " & Len(s)
Exit Sub
e: MsgBox "Error: " & Err.Description
End Sub
書籤