Public Function fArray_IsArray(Expression As Variant) As Boolean
'要素のある配列になっている場合にTrueを返す
'※空の型配列の場合[IsArray]では判定できない(Trueになってしまう)
'※Splitの結果で[変数なし]となった場合、判定できない(Trueになってしまう)
    
    'まずIsArrayで判定
    If IsArray(Expression) = False Then Exit Function
    
    '要素数をカウントして0だったら終了
    Dim Ln  As Long
    On Error Resume Next
    Ln = UBound(Expression, 1) - LBound(Expression, 1) + 1
    On Error GoTo 0
    If Ln = 0 Then Exit Function
    
    'たどり着いたらOK
    fArray_IsArray = True
    
End Function