UDFは、MicrosoftExcelでVBAを使用してセルから数値のみを抽出します

この記事では、VBAコードを使用して、ユーザー定義関数を使用してセルからのみ数値を抽出する方法を学習します。

質問）：英数字データを含むセルからのみ数値を取得するためのマクロが必要です。

以下は、列Aに英数字データが含まれ、予想される数値が列Bにあるデータのスナップショットです

img1

列Aから数値のみを取得するため。 VBエディターを起動するには、以下の手順に従う必要があります。[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します

img2

以下のコードを標準モジュールにコピーします

関数NumericOnly（mystr As Variant）

Dim myOutput As String、i As Integer

For i = 1 To Len（mystr）

If IsNumeric（Mid（mystr、i、1））Then _

myOutput = myOutput＆Mid（mystr、i、1）

次へ

NumericOnly = myOutput * 1

終了関数

===

img3

  • セルB2の出力を取得するには、数式は

です。 === * = NumericOnly（A2）

===

img4

===

このように、VBAコードを使用して、テキストと数字を含むセルからのみ数字を取得できます。

image 4