| |
横から失礼します。
>そもそもPGの組み方そのものが分かりません。
>作れる人がいないから作ってくれと言われまして・・・。
このような会社は辞めちまえ！！ って思ったりして（笑）
Sub Test()
Dim Last_r As Long
Dim i As Long
i = 3
With ActiveSheet '今表示してあるシートで
Last_r = .Range("E" & Rows.Count).End(xlUp).Row 'E列の最終行を取得
For i = 3 To Last_r '3行目からE列最終行まで処理します。
'もし E列のi行の値とその上の（i-1）値が違えば
If .Range("E" & i).Value <> .Range("E" & i - 1).Value Then
'B列の一番大きい数字に１を足す
.Range("B" & i).Value = Application.WorksheetFunction. _
Max(.Range("B3:B" & i).Value) + 1
Else 'E列のi行の値とその上の（i-1）値が違えば じゃなかったら
'その上の数字をそのままで記入
.Range("B" & i).Value = .Range("B" & i - 1).Value
End If
Next i
End With
End Sub
上記マクロは、判定２に関してだけです。
ファイル名で並べ替えが終わっている表でしか通用しません。
にぃさんのおっしゃるとおり（通じていなかったかも）
ファイル名 あ の所に １ が入ります。
>関数等は本を見ればある程度は分かるかな？と思ってコツコツやっています。
を信じて
これを足がかりにしてください。
|
|
Abebobo
- 08/12/12(金) 15:14 -
