这个要用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 工具——宏——找到“建新表”——执行
温馨提示:内容为网友见解,仅供参考