VBAでExcel式を実装する

VBAで実装したいExcel式がありますが、残念ながらエラーが発生します。VBAでExcel式を実装する

私のExcelの数式：

 IF(isemptyornothing(A1:A50); ""; IF(ISNUMBER(VALUE(A1:A50)); VALUE(A1:A50); A1:A50))

マイVBAの試みは：

Range("B1:B50").Formula = _ 
    "=IF(IsEmptyorNothing(A1:A50), "", IF(ISNUMBER(VALUE(A1:A50)), VALUE(A1:A50), A1:A50))"

これは、次のエラーが得られます。

「ファイル名を指定して実行時エラー '1004'：アプリケーション定義またはオブジェクト定義されたエラー "

VBAの初心者で、私はこれとどう対処するべきかわかりません。あなたが示し数式が配列で入力する必要があるだろうが、あなたはこの単純な行うことができます。また""""

すべき

""ニーズ：式があるよう

Range("B1:B50").Formula = _ 
    "=IF(IsEmptyorNothing(A1), """", IF(ISNUMBER(VALUE(A1)), VALUE(A1), A1))"

およびExcelは、A1を調整置きます自動的にコピーされます。

標準のExcelにこのような公式が存在しないため、これはIsEmptyorNothingがUDFであることを前提としています。

2017-08-23 13:54:49

ありがとう、これは確かに動作します。 'IsEmptyorNothing'に関しては、私のExcel上に既に存在しているか、少なくとも私はそれを定義していませんでした。 –

答えて