EXCEL宏的编制

将A列相同的数据，都横向的放到一行中，像下面的单元格所示那样 有没有大神帮帮忙

Sub copysame()
For i = 2 to [a65535].end(xlup).row
if cells(i,1)=cells(i-1) then
range(cells(i,1),cells(i,cells(i,1).End(xlToLeft).Column).copy cells(i-1,cells(i,1).End(xlToLeft).Column+1)
Rows(i &":" & i).Select
Selection.Delete Shift:=xlUp
Next
End sub

这个要看你的代码才能给你参考，我录了一个，你试一下 sub 复制n个表() again: n = inputbox("请输入你要复制的表的个数，输入0表示取消！") if not isnumeric(n) then msgbox "您输入的不是数字，请重新输入！" goto again end if if n = 0 then end end if cells.select selection.copy for i = 1 to n filename = "sheet" & i + 1 if i + 1 > sheets.count then sheets.add after:=sheets(sheets.count) activesheet.name = filename end if sheets(filename).select range("a1").select activesheet.paste sheets("sheet1").select next i end sub