0

Excel VBAを使用して、カスタムシーケンスを作成しようとしています。10.168.187.0〜10.168.187.100の範囲のIPアドレスのカスタムシーケンスを続行するにはどうすればよいですか？

私がこれまでに持っているコードは以下に掲載されています。

Sub Sequence()
'
' Sequence Macro
' Macro recorded 13/02/2013 by Don
'
' Keyboard Shortcut: Ctrl+Shift+M
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "10.168.187.0"
Range("A2").Select
ActiveCell.FormulaR1C1 = "10.168.187.1"
Range("A3").Select
ActiveCell.FormulaR1C1 = "10.168.187.2"
Range("A4").Select
End Sub
4

1 に答える 1

1

セルの完成を自動化しようとしていると仮定すると、以下が機能するはずです。

Sub CompleteRange()

For i = 1 To 101

    Cells(i, 1) = "10.168.187." & (i - 1)

Next i

End Sub
于 2013-02-13T22:32:00.453 に答える