A列に1～10000までの値が入力されています。

質問

A列に1～10000までの値が入力されています。

下記の条件で、Ｂ列に印を付けたいです。

条件(1)
Ａ列には、途中ランダムに空白のセルがあります。

条件(2)
Ｂ列に、５連続以上入力があった場合のみ●の印を付けたい。

マクロで、可能でしょうか？

イメージは、画像のような感じです。

回答No.2

mu2011 · ベストアンサー

マクロ（ＶＢＡ）例です。
対象データシートタブ上で右クリック→コードの表示→サンプルコード貼り付け→シート上でAlt＋F8キー押下→sample実行

Sub sample()
Dim i As Long, j As Long, cnt As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row + 1
Select Case Cells(i, 1)
Case ""
If cnt >= 5 Then Cells(j, 2).Resize(cnt) = "●"
cnt = 0
Case Else
If cnt = 0 Then
cnt = 1: j = i
Else
cnt = cnt + 1
End If
End Select
Next
End Sub

お礼

うぉぉぉ。

完璧です！！！！感謝感謝ですよ。

回答No.4

KURUMITO

マクロというよりも関数で十分対応できますね。
データがＡ2セルから下方にあるとします。
Ｂ2セルには次の式を入力して下方にドラッグコピーします。

=IF(A2="","",IF(COUNT(A2:A6)=5,"●",IF(AND(A2<>"",B1="●"),"●","")))

お礼

関数でも、狙い通りの結果になりました。

回答No.3

watabe007

こんばんは、参考に

Sub Test()
　　Dim c As Range
　　For Each c In Range("A:A").SpecialCells(xlCellTypeConstants).Areas
　　　　If c.Cells.Count >= 5 Then c.Offset(, 1).Value = "●"
　　Next
End Sub

お礼

おおお。

マクロと言っても、色々と方法があるんですね。

勉強になります。

回答No.1

mt2008

マクロではなく関数ですが
B1に　=IF(COUNT(A1:A5)=5,"●","")
B2に　=IF(COUNT(A2:A6)=5,"●",IF((A2<>"")*(B1="●"),"●",""))
と、入れてB2を下方向にコピーしてください。

お礼

迅速に回答して頂き、ありがとうございます。
関数で出来ました。