空白セルの次の値を取得したい

質問

エクセルの関数に関して質問いたします。

ある行に数字が複数並んでいるとします
その中には数字と空白がランダムにあるとします

例）
12　5　空白　空白　空白　11　空白　13
このような並びがあったとして1列目と2列目の12と5は普通に計算できますが、2列目と6列目、6列目と8列目の　5と11、11と13は計算できないという状態です
足し算だとしたら、12＋5＝17、5+11=16、11+13=24
というような、結果を得たいのです。
空白を飛び越えて計算できるような関数、または方法がありましたら
教えていただきたいです、よろしくお願いします。

回答No.5

SI299792 · ベストアンサー

B2: =IF(B1="","",LOOKUP(9E+99,$A1:A1)+B1)
右へコピペ。
のミスです。

お礼

SI299792さん、ご回答ありがとうございます！
求めていた結果が得られました
他の方にもご指摘受けましたが
画像で質問の状況と結果の状況をＵＰすべきでした
改めて、ありがとうございました！

回答No.1

NuboChan

VBA初心者が考えたマクロですが一応、答えは出ます。
但し、実用的では有りません。

１行目に例を入れて試してみてください。

Option Explicit

Sub test01()
Dim x As Long
Dim i As Long, ii As Long

Dim ws1 As Worksheet

Set ws1 = Worksheets("sheet1")
x = ws1.Cells(1, Columns.Count).End(xlToLeft).Column

With ws1
For i = x To 1 Step -1
If Application.CountA(.Columns(i)) = 0 Then .Columns(i).Delete
Next
End With
Stop

x = ws1.Cells(1, Columns.Count).End(xlToLeft).Column

For ii = 1 To x
Cells(1, x + 1) = Cells(1, ii) + Cells(1, ii + 1)
x = x + 1
Next

End Sub

お礼

NuboChanさん、早速の回答ありがとうございます！
投稿から短時間での回答なのにマクロまで考えてくださって
すごいです
確かに結果は出ます。
ただ、、、、とてもありがたいのですが
私以外の人も使用する予定のファイルなので
マクロより関数で結果が出てくれた方が、、、
質問の時点で関数以外の答えでもという質問の仕方
でしたので、質問の書き方に問題があったようです
でも、個人的には今後の考え方の参考になりました！