랭구루

エクセルVBA

1. 最終行からデータありセルだけ数えた結果

.Cells(1, 5) = WorksheetFunction.CountA(.Range(.Cells(1, 3), .Cells(.Cells(Rows.Count, 3).End(xlUp).Row, 3)))
※最終行の値の取得なら　.Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1))
※最終行取得なら、　.Cells(Rows.Count, 1).End(xlUp).Row

2. ファイルネームだけ（拡張子あり）
ori_filename = Mid(from_inputFileName, InStrRev(from_inputFileName, "\") + 1, Len(from_inputFileName))

3. 배열의 크기
따라서 정확하게 배열의 크기를 구하려면 아래와 같이 코드를 짜야합니다.
UBound(varArray) - LBound(varArray) + 1