VBA或函数如何指定某列与其他几列数据合并

双枪老太太

VBA或函数如何指定某列与其他几列数据合并，就是A列是人员姓名，BCD列是人员的相关数据，需BCD列分别与A列组合，再依次合并成AB列，即A列为人员姓名，B列为人员数据

洋务德雷

透视表的多重合并计算功能--ALT+D+P

双枪老太太

谢谢指点，丹哥，终于搞定了。

ruijiaqi

j2=INDEX($A$2:$A$6,MOD(ROW($A1)-1,COUNTA($A$2:$A$6))+1)下拉
k2=VLOOKUP($J2,$A$2:$D$6,INT((ROW($A1)-1)/COUNTA($A$2:$A$6))+2,)下拉

hdx3000

Sub 合并()
Set wb = ThisWorkbook.Sheets(1)  '计算行数列数可以扩展（行随意，列到9列）
ha = wb.Range("A65536").End(3).Row
lie = wb.Range("1:1").End(xlToRight).Column
k = 2 '记录结果填充起始行
wb.Range("M2:N" & wb.Range("M65536").End(3).Row).Clear '清除上次数据
For j = 2 To lie
  For i = 2 To ha
     If Cells(i, j) <> "" Then
       Cells(k, 13) = Cells(i, 1)
       Cells(k, 14) = Cells(i, j)
       k = k + 1
     End If
  Next i
Next j
'水平垂直自动居中
With wb.Cells
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlCenter
End With
End Sub