怎么把数据变成我想要的那样，数量很多，我只是拿了几个数据

为什么表格这么不规范

这个说白了属于一对多的查询，你的原始表格很不规范，规范的话第一列不要有空值，第二列也不要有空值

数据首先规范为这样，如图，可以通过F5定位来完成

'sheet1源数据，sheet2输出,自己修改
Option Explicit
Sub test()
　Dim i, j, arr, n, m
　arr = Sheets("sheet1").Range("a1:b" & Sheets("sheet1").[b65536].End(xlUp).Row)
　With Sheets("sheet2")
　　.Cells.ClearContents
　　For i = 1 To UBound(arr, 1)
　　　If Len(arr(i, 1)) > 0 Then
　　　　n = n + 1
　　　　.Cells(n, 5) = arr(i, 1)
　　　　For j = i + 1 To UBound(arr, 1)
　　　　　m = m + 1
　　　　　.Cells(n, m + 5) = arr(j, 2)
　　　　　If Len(arr(j, 2)) = 0 Then m = 0: Exit For
　　　　Next
　　　End If
　　Next
　End With
End Sub