在VBA中，你可以使用以下代码将双胞胎随机分配到同一个班级中。假设班级名称是一个字符串数组，双胞胎也是数组，并且你想将这两个数组中的元素随机分配到同一个班级中。


```vba
Sub RandomAssignment()
Dim Classrooms As Variant
Dim Twins As Variant
Dim i As Long, j As Long
Dim RandomClassroom As Variant

' 假设班级名称和双胞胎名称存储在数组中
Classrooms = Array("Classroom 1", "Classroom 2", "Classroom 3")
Twins = Array("Twins1", "Twins2")

' 随机选择一个班级作为双胞胎的班级
Randomize
RandomClassroom = Int((UBound(Classrooms) - LBound(Classrooms) + 1) * Rnd + LBound(Classrooms))

' 遍历双胞胎数组，并将它们分配到同一个班级中
For i = LBound(Twins) To UBound(Twins)
For j = LBound(Twins) To UBound(Twins)
If i <> j Then ' 检查是否已经分配到同一个班级
If InStr(Classrooms(RandomClassroom), Twins(i)) > 0 Or InStr(Classrooms(RandomClassroom), Twins(j)) > 0 Then ' 检查是否在同一个班级中
' 如果不在同一个班级中，将双胞胎中的一个分配到随机选择的班级中
Twins(i) = Classrooms(RandomClassroom)
End If
End If
Next j
Next i

' 输出结果
Debug.Print "双胞胎被分配到以下班级： " & Twins ' 将输出双胞胎被分配到的班级列表
End Sub
```
这段代码使用VBA的循环结构和随机函数来实现双胞胎的随机分配。它首先定义了班级名称和双胞胎名称的数组，并使用随机函数选择一个随机班级作为双胞胎的初始班级。然后，它遍历双胞胎数组，并检查它们是否已经被分配到同一个班级中。如果不在同一个班级中，它将双胞胎中的一个分配到随机选择的班级中。最后，代码输出双胞胎被分配到的班级列表。你可以根据需要修改代码以满足你的具体需求。