如何把excel表中的每行的数据生成新的工作表，并且生成的工作包名字是 原表中没行的第一列

如何把excel表中的每行的数据生成新的工作表~

告诉你一个简单的办法，你用透视表，双击每个人的行，系统会自动生成一张表。 以上完全满足你的要求，而且简单易用。 如果你是想打印工资条，这样的方式比较浪费纸张，你可以下载工资模板http://wenku.baidu.com/view/ccce27284b73f242336c5fb6.html，你可以将所有人的工资做成工资条，打印后裁剪成一条。

EXCEL中怎样从多个工作表中选出满足条件的所有行,并生成一个新表的解决方法如下：
1、打开要处理的excel文档，
2、按alt+f11，打开vba编辑窗口，
3、双击左侧的this sheet,
4、在右侧的空白中输入下面的程序

Sub liyoushang()
Sheets(Sheets.Count).Cells.ClearContents
k = 1
For i = 1 To Sheets.Count - 1
For j = 1 To Sheets(i).Range("a6000").End(xlUp).Row
If WorksheetFunction.Trim(Sheets(i).Cells(j, 2).Text) = "B" Then 'B指公司名称，在此做相应替换
Sheets(i).Rows(j).Copy _
Destination:=Sheets(Sheets.Count).Cells(k, 1)
k = k + 1
End If
Next
Next
End Sub
5、点击工具栏中的执行，
这样就可以了。

这个要用vba.
我的理解是你要生成的新工作表只有一行或一列数据，不知道你是要一行数据还是一列数据
下面是横排的，你看一下效果。
宏代码如下：
Sub 建新表()
Dim a%, b%, arr, brr
Dim Sh As Worksheet
Dim rng As Range
Set rng = Sheets("sheet3").UsedRange
a = rng.Rows.Count
b = rng.Columns.Count
arr = Sheets("sheet3").Range(rng.Cells(1, 1), rng.Cells(a, b))
For i = 1 To a
brr = Sheets("sheet3").Range(rng.Cells(i, 1), rng.Cells(i, b))

With Worksheets
Set Sh = .Add(after:=Worksheets(.Count))
Sh.Name = arr(i, 1)
Sh.Range(Cells(1, 1), Cells(1, b)) = brr
End With
Next
End Sub
会执行宏吧？
alt+f11打开vbe编辑器
插入一模块，拷入以上代码
返回excel 工具——宏——找到“建新表”——执行

在新表的第一列直接引用。

如：
=sheet1!a1
拖动复制到其他单元格即可

---

如何把excel表中的每行的数据生成新的工作表，并且生成的工作包名字是 原表中没行的第一列视频