＜カウント補助スクリプト＞
「初期値」と「増分」を入力すると、結果をテキスト出力します。

「スクリプトによる貼り付け処理の許可」を有効にしないと、
コピー機能は使えません。その場合はCtrl+Cでコピーしてください。
以下のコードをコピーしてHTMLファイルにしてください。

<!--ここから----------------------------------->
<script language="VBScript">
Sub Count()
Dim i, j, k
Dim strBuff
j = frmText.first.Value
k = frmText.increase.Value
For i=1 To k
strBuff = strBuff & Cstr(j) & " "
If i Mod 10 = 0 Then strBuff = strBuff & vbCrLf
If i Mod 50 = 0 Then strBuff = strBuff & vbCrLf
j = j + 1
Next
frmText.txtTarget.Value = strBuff
frmText.first.Value = j
End Sub
Sub txtCopyToClipboard()
set rngText = frmText.txtTarget.createTextRange()
rngText.execCommand("copy")
End Sub
</script>
<form id="frmText">
<textarea id="txtTarget" rows="25" cols="100"></textarea>
<br>
初期値：<input type="text" id="first" value="2000000">
増分：<input type="text" id="increase" value="200">
<input type="reset" value="clear">
</form>
<button onClick="Count()">Count</button>
<button onClick="txtCopyToClipboard()">CopyToClipboard</button>
<!--ここまで----------------------------------->