以前に同じ値のセルを結合する、結合したセルを解除して同値を入力でも紹介したが
今回はセル結合なして、同値を入力したり削除したりするマクロを一つ。 上図のようにするためには Sub 上と同じ値を入力() Dim i As Integer Dim gyou As Integer gyou = ActiveSheet.UsedRange.Rows.Count - 1 For i = 2 To gyou With Cells(i, 1) If .Value = "" Then .Value = .Offset(-1).Value End If End With Next End Sub こんな感じだろうか・・・(自信ないが) また、逆に上のセルと同値の場合は値を削除するマクロは Sub 上と同じ値は削除() Dim i As Integer Dim gyou As Integer gyou = ActiveSheet.UsedRange.Rows.Count - 1 For i = gyou To 1 Step -1 With Cells(i, 1) If .Value = .Offset(1).Value Then .Offset(1).Value = "" End If End With Next End Sub
by slayer0210
| 2005-11-17 07:48
| マクロ
|
カテゴリ
以前の記事
フォロー中のブログ
検索
最新のトラックバック
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧
|
ファン申請 |
||