Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA自定义序列_Excel_Vba - Fatal编程技术网

Excel VBA自定义序列

Excel VBA自定义序列,excel,vba,Excel,Vba,使用ExcelVBA,我试图创建一个自定义序列。如何为范围为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

使用ExcelVBA,我试图创建一个自定义序列。如何为范围为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

假设您希望自动完成单元格,则以下操作应可行:

Sub CompleteRange()

For i = 1 To 101

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

Next i

End Sub

公式:
=“10.168.187.&ROW()-1
(从A1开始)感谢Dom,它的工作方式正是我们所需要的。我对VBA非常陌生,因此感谢您的帮助:)