- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# mdr0465
WorksheetFunction.Count 方法
會統計含有數字的儲存格，並統計引數清單內的數值。
- Format(Mid(Sheets(1).Cells(64, 1), 6, 11), "dd/nn/yy")
是文字
WorksheetFunction.CountA 方法
會統計不是空白的儲存格，以及引數清單內的數值。
- Application.Goto ActiveWorkbook.Sheets(2).Cells(1, 2)
- 'On Error Resume Next
- cnt = WorksheetFunction.CountA(Range("b:b"))
你的程式可修改為CountA
試試看
- Sub test()
- Dim rng As Range
- Dim i, cnt, number As Integer
- Dim x As Range
- i = 73
- number = 0
- For i = i To 86
- Set x = ActiveWorkbook.Sheets(1).Cells(i, 1)
- If IsNumeric(x) = True And IsEmpty(x) = False Then
- number = number + 1
- End If
- Next
- cnt = WorksheetFunction.Count(ActiveWorkbook.Sheets(2).Range("a:a"))
- For i = 1 To number
- With ActiveWorkbook.Sheets(2)
- .Cells(cnt + i, 1) = i
- With .Cells(cnt + i, 2)
- .Cells = Format(Mid(ActiveWorkbook..Sheets(1).Cells(64, 1), 6, 11), "YYYY/MM/DD")
- .NumberFormatLocal = "mm/dd/yy;@"
- End With
- End With
- Next
- End Sub
|
|
發表於 2017-9-1 09:29
| 