| |
▼ドカ さん：
>X月から（ｘ+1）月に月が変わるところの行Noを知りたい
たとえば、A列が以下のようであったとき、
A列
1 月
2 1月
3 1月
4 1月
5 2月
6 2月
7 3月
8 3月
9 4月
10 4月
11 4月
12 4月
13 5月
14 6月
手作業でするなら、
A列範囲を指定して、10列右に↓のような数式をいれます。
> .Formula = "=IF(A2<>A3,1,"""")"
この数式は、ひとつ下のセルと比べ、値が変わっているときは1、
同じときは "" を返しますから、
F5(ジャンプ)機能で「数式が数値のセルだけ」選択すれば、
それが求める行です。
→ 4, 6, 8, 12, 13, ...
これをマクロにすると、こんな感じです。
Sub Try1()
Dim r As Range
Dim c As Range
Set r = Range("A2", Cells(Rows.Count, 1).End(xlUp))
With r.Offset(, 10)
.Formula = "=IF(A2<>A3,1,"""")"
For Each c In .SpecialCells(xlFormulas, xlNumbers)
Debug.Print c.Row
Next
.ClearContents
End With
End Sub
|
|
kanabun
- 12/3/13(火) 23:37 -
