Special Thanks TouHou Koakuma and ごま !!
Thank you so much for all your support! They're very encouraging!!
むしろ誰か作ってください！オナシャス！
※※※本マクロご使用上の際のご注意※※※
エクセル上でのマクロの使用は、お使いのPC環境によっては、動作機能を著しく低下させる恐れがあります。
本マクロご使用の際の前中後は、お使いのPCが安定した状態にあることを強く推奨いたします。
※※※※※※※※※※※※※※※※※※※※

準備物
・モデルビュー上選択頂点群の全情報を.CSV化
https://ecchi.iwara.tv/images/%E3%83%A2%E3%83%87%E3%83%AB%E3%83%93%E3%83...
・今回使用したマクロ
-----------------------------
Public Sub WAKIGE_MABIKI_TAISYOUSENTAKU_UserInput()

Dim y, x, s, RowsDltSftUpSTART, r, l, i As Long

y = 2
x = 2

s = Application.InputBox(prompt:="毛モデル１本の底面の頂点数(角数)を数値のみで入力してください。", Type:=1, Default:=5) ', xpos:=1000, ypos:=2000
If IsNumeric(s) = False Or s < 1 Then 'isnumeric(cells(yy,xx).value) = false
MsgBox "1 値以上を入力してください。マクロを中断します。"
Exit Sub
End If

RowsDltSftUpSTART = y

r = Application.InputBox(prompt:="毛モデル１本の曲がり箇所数を数値のみで入力してください。", Type:=1, Default:=20) ', xpos:=1000, ypos:=2000
If IsNumeric(r) = False Or r < 1 Then 'isnumeric(cells(yy,xx).value) = false
MsgBox "1 値以上を入力してください。マクロを中断します。"
Exit Sub
End If

l = s * r

i = 0

Do While Len(Cells(RowsDltSftUpSTART + (i * s * (r + 1)), x)) <> 0

Rows(RowsDltSftUpSTART + (i * s * (r + 1)) & ":" & RowsDltSftUpSTART + (i * s * (r + 1)) + (s * (r + 1) - 1)).Select
Selection.Delete Shift:=xlUp

i = i + 1

Loop

End Sub