还是楼上那个简便,可以直接用函数=INDEX(B$1:M$1,,MATCH(1=1,B2:M2<>"",))3键结束;
Sub sc()
Dim arr, x%, y%
arr = Range("a1").CurrentRegion
For x = 2 To UBound(arr)
If arr(x, 1) = "" Then Exit Sub
For y = 2 To 13
If arr(x, y) <> "" Then Cells(x, UBound(arr, 2)) = arr(1, y): Exit For
Next y, x
End Sub