在VBA中，如果你想要循环1到10每个数5次，你可以使用`For`循环结构，并结合`Step`关键字来指定步长。下面是一个简单的示例代码：
```vba
Sub LoopExample（）
Dim i As Integer
For i = 1 To 10 Step 1 ' 从1循环到10，步长为1
' 在这里执行你想要重复的操作
Debug.Print i ' 打印当前的数字
Next i ' 循环到下一个数字
End Sub
```
如果你想要每个数字循环5次，你可以使用嵌套的循环结构，外层循环控制数字1到10，内层循环控制每个数字的重复次数：
```vba
Sub NestedLoopExample（）
Dim i As Integer
Dim j As Integer
For i = 1 To 10 ' 外层循环，控制数字1到10
For j = 1 To 5 ' 内层循环，每个数字重复5次
' 在这里执行你想要重复的操作
Debug.Print i, j ' 打印当前的数字和重复次数
Next j ' 内层循环结束，进入下一个数字的重复
Next i ' 外层循环结束，进入下一个数字
End Sub
```
在这个例子中，`i`是外层循环的计数器，从1到10，而`j`是内层循环的计数器，从1到5。每次内层循环都会执行相同的操作（在这个例子中是打印当前的数字和重复次数），然后外层循环会自动继续到下一个数字，直到所有数字都循环了5次。