同じ値の入力及び削除

以前に同じ値のセルを結合する結合したセルを解除して同値を入力でも紹介したが
今回はセル結合なして、同値を入力したり削除したりするマクロを一つ。
e0080122_7395898.gif

上図のようにするためには
 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
e0080122_747244.gif

[PR]
by slayer0210 | 2005-11-17 07:48 | マクロ


<< 目次シートの作成 連続した文字を作る >>