驚愕！Excel LEN関数とVBAで小数点以下の桁数を一瞬で取得する方法

「Excelで小数点以下の桁数を取得したいけれど、どうすればいいのか？」と悩んでいる方も多いはず。特に、LEN関数やFIND関数を使った方法がよく紹介されていますが、果たしてそれだけで本当に効率よく計算できるのでしょうか？もしもあなたがExcelを使って業務や分析を行っているなら、この悩み、非常に重要です。しかし、心配は無用です！今回は、LEN関数を基に、さらに強力なVBA（Visual Basic for Applications）を駆使して、小数点以下の桁数を最適に取得する方法を徹底解説します。

以下の内容を読めば、あなたはExcelにおける「桁数取得」のスキルを圧倒的に強化できるはずです。初心者の方でもすぐに実践できる内容をお届けしますので、ぜひ最後までご覧ください！

Excelでの小数点以下の桁数取得方法とは？
1. LEN関数とFIND関数を駆使して小数点以下の桁数を取得する方法
VBAを使ってさらに効率化！
1. VBAコードを使った小数点以下桁数の自動計算
Excel LEN関数とVBAに関する疑問解決
1. Q1: 小数点以下にゼロが追加されている場合はどう計算する？
2. Q2: VBAで複数のセルに対して一括で処理できるのか？
今すぐパソコンやスマホの悩みを解決したい！どうしたらいい？
まとめ

Excelでの小数点以下の桁数取得方法とは？

Excelのイメージ

まずは、Excelで小数点以下の桁数を取得するための基本的な方法をご紹介します。ExcelのLEN関数とFIND関数を組み合わせて、セル内の小数部分の桁数を抽出する方法です。この基本的な手法を理解しておくことで、より複雑な処理にも対応できるようになります。

LEN関数とFIND関数を駆使して小数点以下の桁数を取得する方法

基本的には、以下の式を使います。

LEN関数文字列全体の長さを取得
FIND関数特定の文字（ここでは「.」）の位置を取得

例えば、セルA1に「54.321」と入力されている場合、以下のようにして桁数を計算できます。

セルA1の文字列長（LEN関数）を求める=LEN(A1) → 結果6
小数点の位置（FIND関数）を求める=FIND(“.”, A1) → 結果3
桁数は、文字列長から小数点の位置を引いた値=LEN(A1)-FIND(“.”, A1) → 結果3

この方法を使えば、どんな数値でも簡単に小数点以下の桁数を取得できます。

VBAを使ってさらに効率化！

Excelの基本的な関数だけでは、頻繁に小数点以下の桁数を取得する作業を行う場合、手作業が多くなりがちです。そこで、VBAを活用してこの作業を自動化する方法を紹介します。これにより、複数のセルに対して一括で処理を行いたい時にも非常に便利です。

VBAコードを使った小数点以下桁数の自動計算

以下はVBAを使って、セル内の数値に対して自動的に小数点以下の桁数を求めるコードです。

Sub GetDecimalPlaces()
    Dim cell As Range
    For Each cell In Selection
        If IsNumeric(cell.Value) Then
            ' 小数点の位置を取得
            Dim decimalPosition As Integer
            decimalPosition = InStr(1, CStr(cell.Value), ".")
            
            If decimalPosition > 0 Then
                ' 小数点以下の桁数を表示
                cell.Offset(0, 1).Value = Len(CStr(cell.Value)) - decimalPosition
            Else
                ' 小数点がない場合は0を表示
                cell.Offset(0, 1).Value = 0
            End If
        End If
    Next cell
End Sub

このコードをVBAエディタに入力して実行すると、選択したセルの隣のセルに自動的に小数点以下の桁数が表示されます。