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

要详细方法,谢谢啦

这个要用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 工具——宏——找到“建新表”——执行
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-10-13
在新表的第一列直接引用。

如:
=sheet1!a1
拖动复制到其他单元格即可本回答被网友采纳
相似回答
大家正在搜