
No.1ベストアンサー
- 回答日時:
こんにちは!
色々やり方はあると思いますが、一例です。
VBAのコードにそのままワークシート関数を利用してもよいのですが、ループさせる方法です。
Sub Sample1()
Dim i As Long, k As Long, myStr As String
For i = 11 To 15 '//←11行目~15行目まで//
For k = 1 To Len(Cells(i, "B"))
If Mid(StrConv(Cells(i, "B"), vbNarrow), k, 1) Like "[0-9]" Then
myStr = myStr & Mid(Cells(i, "B"), k, 1)
Else
Exit For
End If
Next k
Cells(i, "D") = myStr
myStr = ""
Next i
End Sub
こんな感じではどうでしょうか?
※ 全角数字にも対応できるようにしてみました。m(_ _)m
No.2
- 回答日時:
その条件なら
Dim r As Range
For Each r In Range("B11:B15")
r.Offset(, 2).Value = Val(r.Value)
Next r
でいいと思います。
> ※関数では出来るのは知っているのですが
数式が分かるならそれをプログラムに組み込むだけだと思いますが……
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excel VBA 文字列から数字のみ抽出
Visual Basic(VBA)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
エクセル VBA 小数点を含む数字抽出について
Excel(エクセル)
-
4
エクセル 数字のみ残したい
Excel(エクセル)
-
5
別のシートから値を取得するとき
Visual Basic(VBA)
-
6
文字列から英数字のみを抽出する関数
Excel(エクセル)
-
7
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
Excel 文字列から6桁の数値の抽出
-
5
未審査請求包袋抽出表作成とは...
-
6
エクセルで色の付いたセルを抽...
-
7
ACCESS クエリ 条件以外のレ...
-
8
PDFファイル/抽出許可され...
-
9
Accessの選択クエリの抽出条件...
-
10
ボーカルだけを抽出したいのですが
-
11
Accessで複数のクエリの抽出条件
-
12
アクセス 同じフィールド(テキ...
-
13
PCゲーム 音声 画像 抽出方法
-
14
【エクセルVBA】 A1セルを参照...
-
15
コンボボックス全ての値を取得...
-
16
AccessのWHERE句において、変数...
-
17
音楽をDVDから抽出したいのです...
-
18
サイホンの原理
-
19
エクセルの7桁の中から3,5,7...
-
20
excelについて。
おすすめ情報
公式facebook
公式twitter