オートフィル数列

Question

それは、このからのフォローアップの質問です：私が試した

Column A | Column B 
1. 1   1 
2.    2 
3. 2   1 
4.    2 
5.    3 

：私は、次のような出力を作成したいと思います

Autofill the same number from column A in column B

FormulaR1C1のいくつかの変更を加えたbrettdjの答えは、現在の公式に続きます。

=IF(RC[-1]<>"""",RC[-1],R[-1]C+1) 

しかし、それは数が1

のではなく、カラムからカウントを開始どのようにそれは1からカウントを開始するには？

Answer 1

これで式"=IF(RC[-1]<>"""",RC[-1],R[-1]C+1)"を交換してみてください。

"=IF(RC[-1]<>"""",1,R[-1]C+1)"あなたに良い

Answer 2

私が正しく理解していれば、以下はあなたの答えです。あなたのデータを想定し

はA2で始まり、その後B2式の下に適用し、最後

=IF(AND(A2<>"",B1<>""),1,B1+1) 

証明を使用でき

Answer 3

まで下にドラッグします：

=IF(ROW(A1)=1,1,IF(A1<>"",1,OFFSET(B1,-1,0)+1)) 

最初の行のテストが必要で、その後、OFFSETの楽しい後続の行のために。

例えば：

Answer 4

編集：私の最初の答えはあなたのlinked question

に要求されたように、私はあなたの実際の質問のためのコードを追加するために編集されたシーケンスを得ることでした...

---

Sub FastUpdate(rng As Range) 
    With rng.Offset(, 1) 
     .Cells(1, 1) = 1 
     .Offset(1).Resize(.Rows.Count - 1).FormulaR1C1 = "=IF(ISBLANK(RC1),R[-1]C+1,1)" 
    End With 
End Sub 

リンク質問

ため

Sub main() 

    FastUpdate Worksheets("MySheetName").Range("A1:A14") '<--| use whatever range you need. best use fully qualified reference 

End Sub 

---

コードを以下のように使用されることを次のように私は行くと思い、実際の質問

ため

コードを私は次のように行くと思い

は次のとおりです。

Sub FastUpdate(rng As Range) 
    With rng.Offset(, 1) 
     .Value = .Offset(, -1).Value 
     .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" 
     .Value = .Value 
    End With 
End Sub 

を次のように使用する：

Sub main() 

    FastUpdate Worksheets("MySheetName").Range("A1:A14") '<--| use whatever range you need. best use fully qualified reference 

End Sub