Excel空白の行に上記の値を入力してください

Question

Editing>Fill>Topで提供される機能と同様に、行の空白の値を 'トップ'値で埋めようとしています。違いは、Fill関数では、大きなデータセットに自身を適用するのではなく、行単位で行かなければならないということです。以下の実施例：第二カラム（2）における3番目のエントリはまた、これが複数の列に適用することができた意味倒されたこと

Apple 1 foo 
Banana 1 foo 
Banana* 2 foo 
Banana* 2* bar 
Cherry 2 bar 
Cherry* 3 foo 
Cherry* 6 bar 
Grape 1 foo  //new values represented with * 

注

Apple 1 foo 
Banana 1 foo 
     2 foo 
      bar 
Cherry 2 bar 
     3 foo 
     6 bar 
Grape 1 foo 

は、次のように終わるだろう。

この値は、最初の表に表示される関係Cherry>2, Cherry>3, Cherry>6を持つ表を、連想表として使用できる形式に変換します。

Answer 1

はこの短いマクロを試してみてください。

Sub FillInTheBlanks() 
    Dim i As Long, N As Long, j As Long 

    N = Cells(Rows.Count, "C").End(xlUp).Row 

    For i = 2 To N 
     For j = 1 To 2 
      If Cells(i, j).Value = "" Then Cells(i, j).Value = Cells(i, j).Offset(-1, 0).Value 
     Next j 
    Next i 
End Sub