![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
No.1ベストアンサー
- 回答日時:
こんにちは!
https://oshiete.goo.ne.jp/qa/11683392.html
↑のサイトの関連質問ですね。
上記サイトは文字列として連結していましたが、
今回は単に足し算すれば大丈夫だと思います。
今回もA列1行目からデータがあり、C列に表示するとします。
Sub Sample2()
Dim i As Long, k As Long
Dim myAry
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
myAry = Split(Cells(i, "A"), vbLf)
For k = 0 To UBound(myAry)
If IsNumeric(myAry(k)) Then
Cells(i, "C") = Cells(i, "C") + myAry(k)
End If
Next k
Next i
End Sub
こんな感じではどうでしょうか?m(_ _)m
こんにちは。
また助けていただきありがとうございます。
想定通りの結果で尚且つ一番回答が早かったためベストアンサーとさせていただきます。
ありがとうございました。
No.4
- 回答日時:
こんにちは
「セル内改行で分割して、数値の行のみを合計する」という意味と解釈しました。
ユーザ定義関数にしておくのが便利かもしれません。
ご例示の場合であれば、C2セルに
=addvalue(A1)
と入力して下方にフィルコピーすれば計算できるようになります。
事前準備として、VBAのエディタで標準モジュールに以下をコピペしておきます。
Function addValue(ByVal target As Range)
Dim ary, n As Integer
ary = Split(target.Text, vbLf)
addValue = 0
For n = LBound(ary) To UBound(ary)
If IsNumeric(ary(n)) Then addValue = addValue + ary(n)
Next n
End Function
※ 引数には単体セルを与えてください。(複数セル範囲の場合はエラー値を返します)
No.2
- 回答日時:
こんにちは、
VBAなら、、で 一例サンプルです。
Sub sample()
Dim mystr, cel, rng As Range
Dim i As Long, Ans As Long
Set rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
For Each cel In rng
mystr = Split(cel, vbLf)
For i = 0 To UBound(mystr)
If IsNumeric(mystr(i)) Then
Ans = Ans + mystr(i)
End If
Next
cel.Offset(, 2) = Ans
Ans = 0
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelの1つのセルにそれぞれ文字+数字が入力されていて、 数字のみ抽出して合計したいです。(合計 4 2023/03/16 23:44
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) エクセル VBA セルの結合 2 2022/09/07 11:48
- Excel(エクセル) Excelにて、セルに入力してある文字の中から文字と最後の数字のみ切り取り貼り付けるVBA 5 2022/12/27 08:40
- Excel(エクセル) B列に、A列の数字が偶数の場合は1減算した数字、奇数の場合はそのまま数字を自動表示したい 4 2022/04/16 12:01
- Excel(エクセル) エクセル 3つの値の中からデータを抽出させる方法 4 2023/08/24 11:00
- Excel(エクセル) エクセルシートの合計の変動 5 2022/04/05 15:56
- Excel(エクセル) 独自の条件を用いた計算式、もしくは別の方法で打ち出す事は可能でしょうか? 6 2022/05/18 10:38
- Excel(エクセル) Excelの数式についての質問 1 2022/10/31 15:50
このQ&Aを見た人はこんなQ&Aも見ています
-
今年はじめたいことは?
今年はこれをはじめたい!ということを教えてください!
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
人生でいちばんスベッた瞬間
誰しも、笑いをとろうとして失敗した経験があると思います。
-
「これいらなくない?」という慣習、教えてください
現代になって省略されてきたとはいえ、必要性のない慣習や風習、ありませんか?
-
Excelで改行を維持しつつ数値以外の値を削除したい
Excel(エクセル)
-
【エクセル】セルの中に数字と文字があり数字だけを足す方法
Excel(エクセル)
-
エクセルで文字と数字が入っているセルを足すには
Excel(エクセル)
-
-
4
エクセルで数字、文字列混在のセルから数字のみを抽出し、その合計をスマー
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
文字列から英数字のみを抽出す...
-
SUMIF関数で、「ブランク以外を...
-
自分の左隣のセル
-
エクセルで、指定の値よりも大...
-
EXCELのcountif関数での大文字...
-
セルを結合した時のエクセル集...
-
エクセルで特定のセル内にだけ...
-
エクセル1行おきのセルを隣の...
-
excelで、空白を除いてデータを...
-
エクセルで、A2のセルにA3...
-
【Excel】4つとばしで合計する方法
-
同一セル内の重複文字を削除し...
-
EXCELでマイナス値の入ったセル...
-
エクセルで年月日から月日のみへ
-
Excelでなぜこのような式をつか...
-
エクセル関数/任意の桁数の数...
-
EXECL バーコード生成でBarCode...
-
条件付き書式の色付きセルのカ...
-
Excelで大量のセルに一気に関数...
-
EXCEL-同じ組み合わせになった回数
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
自分の左隣のセル
-
SUMIF関数で、「ブランク以外を...
-
文字列から英数字のみを抽出す...
-
エクセルで特定のセル内にだけ...
-
エクセル1行おきのセルを隣の...
-
エクセルで、指定の値よりも大...
-
エクセルで、A2のセルにA3...
-
excelで、空白を除いてデータを...
-
セルを結合した時のエクセル集...
-
同一セル内の重複文字を削除し...
-
EXCELでマイナス値の入ったセル...
-
EXCELのcountif関数での大文字...
-
【Excel】4つとばしで合計する方法
-
エクセルで年月日から月日のみへ
-
Excelで大量のセルに一気に関数...
-
週の労働時間を計算するエクセル
-
Excelで日付が入っていたら金額...
-
エクセル 12進数
-
エラー「#REF」の箇所を置き換...
-
条件付き書式の色付きセルのカ...
おすすめ情報