No.5ベストアンサー
- 回答日時:
こんにちは。
たぶん、何かの製作の途中だと思います。ですが、VBAで厳密には、「数値の文字数」はないのですが、VB系は、そこらへんが、あいまいなんですね。
曖昧なままで作ると、このようになります。
(小数点を含んだものは排除されます)
Sub Test1()
Dim c As Variant
For Each c In Range("A1", Range("A65536").End(xlUp))
If IsNumeric(c.Value) Then
If Abs(c.Value) Like "####" Then
c.Offset(, 1).Value = Right(c.Value, 2)
End If
End If
Next
End Sub
もし、プログラムらしい書き方を望むようでしたら、以下のようにしたらよいと思います。
1,2 とも、負の符号が必要な場合は、Sgn 関数でとってください。こちらは、小数点以下を取り去った数値の下2桁を出します。
Sub Test2()
Dim c As Variant
For Each c In Range("A1", Range("A65536").End(xlUp))
If VarType(c) = vbDouble Then
If Int(Log(Abs(c.Value)) / Log(10#)) = 3 Then
c.Offset(, 1).Value = Fix(Abs(c.Value)) - Int(Abs(c.Value) / 100) * 100
End If
End If
Next
End Sub
No.4
- 回答日時:
VBA使わなくても関数でよいのではないでしょうか?
セル1をA1として
B1に
=LEN(A1)
C1に
=IF(B1=4,RIGHT(A1,2))
これで、B1、C1を下までコピー
また、セル2を省いてB1に
=IF(LEN(A1)=4,RIGHT(A1,2))
で一回で求めることも可能です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 1 2022/07/08 13:46
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/15 08:30
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) エクセルで教えて下さい。 2 2022/05/18 13:00
- 会計ソフト・業務用ソフト エクセルの数式で教えてください。 1 2022/06/21 13:15
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) エクセルの数式について教えてください。 2 2023/02/18 11:30
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 16:07
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】IF関数 Aまたは...
-
対象セル内(複数)が埋まった...
-
貼り付けで複数セルに貼り付けたい
-
エクセルで指定したセルのどれ...
-
セルをクリック⇒そのセルに入力...
-
EXCEL VBA セルに既に入...
-
エクセル 足して割る
-
excelのCOUNTIF関数で、『範囲=...
-
Excelで数式内の文字色を一部だ...
-
Excelでのコメント表示位置
-
エクセルの一つのセルに複数の...
-
エクセルで作成したカレンダー...
-
エクセル オートフィルタで絞...
-
【Excel】 セルの色での判断は...
-
エクセルでオブジェクトを常に...
-
excelの特定のセルの隣のセル指...
-
エクセルのセルの枠を超えて文...
-
Excel2003 の『コメント』の編...
-
【Excel】特定の文字から文字ま...
-
(Excel)数字記入セルの数値の後...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで指定したセルのどれ...
-
Excelで数式内の文字色を一部だ...
-
【エクセル】IF関数 Aまたは...
-
Excelでのコメント表示位置
-
貼り付けで複数セルに貼り付けたい
-
対象セル内(複数)が埋まった...
-
エクセル 足して割る
-
セルをクリック⇒そのセルに入力...
-
EXCEL VBA セルに既に入...
-
excelのCOUNTIF関数で、『範囲=...
-
【Excel】 セルの色での判断は...
-
エクセルの一つのセルに複数の...
-
エクセル オートフィルタで絞...
-
エクセルのセルの枠を超えて文...
-
Excelで、「特定のセル」に入力...
-
Excel2003 の『コメント』の編...
-
Excelで教えてください。 バー...
-
複数のセルのいずれかに数字が...
-
(Excel)数字記入セルの数値の後...
-
Excelで住所を2つ(町名迄と番...
おすすめ情報