Asc(Mid(Cells(i, "A"), j, 1)) <= 47 Or VBA.Asc(Mid(Cells(i, "A"), j, 1)) >= 58 Then. '3.如果是就+1. c = c + 1. End If. Next. '4.傳給B欄i列的儲存格.
確定! 回上一頁