No.1ベストアンサー
- 回答日時:
こんにちは!
質問通り必ず数値は最後にあり連続しているとします。
↓の画像で
B1セルに
=SUBSTITUTE(A1,C1,"")
C1セルに
=MID(A1,COUNT(MID(A1,ROW($A$1:$A$20),1)*1),20)
C1セルは配列数式になりますので、Ctrl+Shift+Enterで確定!
この画面からコピー&ペーストする場合は
上記数式をドラッグ&コピー → C1セルを選択 → 数式バー内に貼り付け → そのまま(編集可能なまま)
Ctrl+Shiftキーを押しながらEnterキーで確定!
数式の前後の{ }マークが入り配列数式になります。
最後にB1・C1セルを選択 → C1セルのフィルハンドルで下へコピー!
これで画像のような感じになります。
(A列が20文字まで対応できる数式です)
尚、数値位置が決まっていない場合はVBAになりますが一例です。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻りマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub Sample1() 'この行から
Dim i As Long, k As Long, myStr As String, str1 As String, str2 As String
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
For k = 1 To Len(Cells(i, "A"))
myStr = Mid(StrConv(Cells(i, "A"), vbNarrow), k, 1)
If myStr Like "[0-9]" Then
str2 = str2 & myStr
Else
str1 = str1 & myStr
End If
Next k
Cells(i, "A") = str1
Cells(i, "B") = str2
str1 = ""
str2 = ""
Next i
End Sub 'この行まで
※ 一旦マクロを実行すると元に戻せませんので
別Sheetでマクロを試してください。m(_ _)m
この回答へのお礼
お礼日時:2014/09/07 11:35
ありがとうございます!
数値位置が決まっていなかったため、2つ目の方法で試しましたところ、成功しました。
何時間かかるかわからない作業が一瞬で片付きました。
感動です。誠にありがとうございました。
No.3
- 回答日時:
No.1です。
前回のC1セルの数式は間違っていました。
↓の数式に変更してください。
今回もC1セルは配列数式です。
=1*MID(A1,MATCH(TRUE,ISNUMBER(1*MID(A1,ROW($A$1:$A$20),1)),0),COUNT(1*MID(A1,ROW($A$1:$A$20),1)))
前回の数式では数字前の文字数変化に対応できません。
どうも失礼しました。m(_ _)m
No.2
- 回答日時:
数字と文字をわけるのではありませんが、ご提示のように左3文字が数字、残りが文字なら
=LEFT(A1,3)
で、左の3文字を
=MID(A1,4,LEN(A1))
で、残りを取得できます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBAでAA(BBB) → BBB.AA に置換したい 2 2022/10/30 13:59
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) ¥マークを含むパスの処理について(マクロ、または関数) 2 2022/12/25 02:11
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/04/21 08:59
- Excel(エクセル) Excelの関数について教えてください。 5 2023/07/28 11:27
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- その他(データベース) カラム上の重複を削除するクエリを教えてください 3 2022/04/12 14:11
- Excel(エクセル) エクセルの質問です 3 2023/07/16 17:33
- グループウェア スプレッドシートのセルが〇色に塗られていたら、別のセルに文字(マーク)を追加する関数 1 2022/07/23 02:10
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelについて教えてください
-
【Excel】数字を3倍にし、なお...
-
エクセルVBA、別ブックへ転記す...
-
エクセル マクロ チェックボックス
-
Excel分析ツールでのポアソン回...
-
【マクロ】顧客番号にて一致さ...
-
【マクロ】名前を保存する際に...
-
エクセルのデーターが2か月前の...
-
UNIQUE関数が使えないバージョ...
-
エクセル共有したが、アクセス...
-
Excelでセルの値が同じか...
-
(マクロ)データをAブックからB...
-
Excel フィルターを掛けた状態...
-
エクセル②
-
エクセルを使っていて2024/5/15...
-
Googleスプレッドシートでファ...
-
エクセルで不等号記号(≠)が上に...
-
Win10でExcel VBA GetPhonetic...
-
Excelで縦軸の書式を0:00形式の...
-
エクセル:一覧表に存在する文...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報