困っています。教えて下さい。

質問

A列に値が入力されていて、間に空白のセルがランダムに存在しています。

それを、C列のように抽出したいです。

条件は下記の通りに。

(1)空白のセルに、挟まれたセルを抽出する。

(2)空白のセルに、挟まれたセルで0だけの場合は除外する。

(3)空白のセルに、挟まれたセルで0と他の数値の混合の場合は抽出する。

(4)最終的に、上記の条件で抽出した値の平均値を算出したい。

IF関数を使うのか、マクロを組まなくてはならないのか分からなくなってしまいました。

回答No.4

pc_knight

以下のマクロをお試し下さい。

Sub cyuusyutsu()
Dim r, rs, rf, rc As Long
Dim kei As Single
For r = 2 To Range("A65536").End(xlUp).Row + 1
If r = 2 Then
rs = r
End If

If Cells(r, "A") = "" Then
kei = 0
For rc = rs To r
kei = kei + Cells(rc, "A") '空白のセルに、挟まれたセル値の合計を求める
Next rc
If kei > 0 Then
'空白のセルに、挟まれたセル値の合計＞”０”をＣ列に転記開始
For rc = rs To r
Cells(rc, "C").Value = Cells(rc, "A")
Next rc
rs = r
Else
'空白のセルに、挟まれたセル値の合計＝”０”につき転記しない
rs = r
End If
End If
Next r
MsgBox "抽出終了"
End Sub

お礼

試してみました。

凄いです。ビックリしました。