結果 : vba worksheetfunction.counta(range