GBKEE

回復 1# mdr0465
WorksheetFunction.Count 方法
會統計含有數字的儲存格，並統計引數清單內的數值。

1. Format(Mid(Sheets(1).Cells(64, 1), 6, 11), "dd/nn/yy")

複製代碼

是文字

WorksheetFunction.CountA 方法
會統計不是空白的儲存格，以及引數清單內的數值。

1. Application.Goto ActiveWorkbook.Sheets(2).Cells(1, 2)
   
2.         'On Error Resume Next
   
3.             cnt = WorksheetFunction.CountA(Range("b:b"))

複製代碼

你的程式可修改為CountA

試試看

1. Sub test()
   
2. Dim rng As Range
   
3. Dim i, cnt, number As Integer
   
4. Dim x As Range
   
5. i = 73
   
6. number = 0
   
7. For i = i To 86
   
8. Set x =  ActiveWorkbook.Sheets(1).Cells(i, 1)
   
9. If IsNumeric(x) = True And IsEmpty(x) = False Then
   
10. number = number + 1
    
11. End If
    
12. Next
    
13. cnt = WorksheetFunction.Count(ActiveWorkbook.Sheets(2).Range("a:a"))
    
14. For i = 1 To number
    
15. With ActiveWorkbook.Sheets(2)
    
16. .Cells(cnt + i, 1) = i
    
17. With .Cells(cnt + i, 2)
    
18. .Cells = Format(Mid(ActiveWorkbook..Sheets(1).Cells(64, 1), 6, 11), "YYYY/MM/DD")
    
19. .NumberFormatLocal = "mm/dd/yy;@"
    
20. End With
    
21. End With
    
22. Next
    
23. End Sub

複製代碼

GBKEE

回復 3# mdr0465

1. Format(Mid(Sheets(1).Cells(64, 1), 6, 11), "dd/mm/yy")

複製代碼

Format傳回是, "yyyy/mm/dd"或 "mm/dd/yyyy"系統才會認定 是日期格式

1. Sub Ex()
   
2.     With ActiveCell
   
3.       .Value = Format(Date, "dd/mm/yy")
   
4.         MsgBox Date & "-->" & .Value
   
5.     End With
   
6. End Sub

複製代碼

2.  "@" 是有什麼用途呢??   
"@"  表為文字格式
可詳看VBA的說明(2010)
Excel  /  輸入資料並設定格式  /  設定資料格式  /  建立或刪除自訂數字格式   
[建立或刪除自訂數字格式]