Excel：VBAを使用してシーケンシャルカラムを追加

Question

VBAを使用してExcelで列を追加しようとしています。

Column 1 Column 2 
      Xyz Data 
      Zyx Data 
      Yzx Data 

私はまた、私はシーケンスから始まり場所を制御したい1.

Column 1 Column 2 
1   Xyz Data 
2   Zyx Data 
3   Yzx Data 

列に番号順を追加したいです。例えば、5歳以上から。

Column 1 Column 2 
5   Xyz Data 
6   Zyx Data 
7   Yzx Data 

助けていただければ幸いです。おかげであなたは、列Aの100行1で作業している場合

Answer 1

、あなたはこれを試みることができる：

Dim startNum As Long 
Dim offNum As Long 
Dim i As Long 

Let startNum = InputBox("Start from:") 
Let offNum = startNum - 1 
For i = 1 To 100 
    ThisWorkbook.Sheets(1).Cells(i, 1).FormulaR1C1 = "=Row(R" & i & "C1) + " & offNum 
Next 

Answer 2

Sub enumeration() 

Dim j, k As Integer 
'determine the number to start with 
j = Application.InputBox("What number should I start with?") 
'determine how many rows are there to enumerate 
k = Cells(1, 2).CurrentRegion.Rows.Count 

For i = 0 To k - 2 
    Cells(i + 2, 1).Value = i + j 
Next i 

End Sub