首页 办公 正文

excel筛选和分类汇总 excel里如何把一列单元格拆分成多个工作簿

公式运行出错3、excel单元格拆分4、excel如何根据首行内容筛选并拆分表格?excel将一个工作表根据条件拆分成多个工作簿按Alt+F11进入VBE界面。excel将一个工作表根据条件拆分成多个工作簿选择【插入】-【模块】插入一个模块。...

今天给各位分享excel筛选分拆的知识,其中也会对excel筛选和分类汇总进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!

本文目录:

excel 里如何把一列单元格拆分成两列

1、选择要拆分的单元格。

2、单击界面顶部的数据按钮。

3、单击稍后打开的界面中的“单独”按钮。

4、在自动打开的对话框中直接单击“下一步”按钮。

5、然后选中传入页面上的框,并单击“下一步”,直到完成。

6、然后,可以看到单元格中的数据已经被分成两列。

将excel表根据筛选条件分拆成多个工作簿,公式运行出错

首先来看一下原始数据,A列是日期,B列是姓名,后面是名称和数量。需要根据B列的姓名将每个人的数据记录存储为一个单独的工作簿文件。

excel将一个工作表根据条件拆分成多个工作簿

按Alt+F11进入VBE界面。

excel将一个工作表根据条件拆分成多个工作簿

选择【插入】-【模块】插入一个模块。

excel将一个工作表根据条件拆分成多个工作簿

excel将一个工作表根据条件拆分成多个工作簿

双击模块名称,在右侧的空白处粘贴下列代码:

Sub CFGZB()

Dim myRange As Variant

Dim myArray

Dim titleRange As Range

Dim title As String

Dim columnNum As Integer

myRange = Application.InputBox(prompt:="请选择标题行:", Type:=8)

myArray = WorksheetFunction.Transpose(myRange)

Set titleRange = Application.InputBox(prompt:="请选择拆分的表头,必须是第一行,且为一个单元格,如:“姓名”", Type:=8)

title = titleRange.Value

columnNum = titleRange.Column

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Dim i, Myr, Arr, num

Dim d, k

For i = Sheets.Count To 1 Step -1

If Sheets(i).Name "数据源" Then

Sheets(i).Delete

End If

Next i

Set d = CreateObject("Scripting.Dictionary")

Myr = Worksheets("数据源").UsedRange.Rows.Count

Arr = Worksheets("数据源").Range(Cells(2, columnNum), Cells(Myr, columnNum))

For i = 1 To UBound(Arr)

d(Arr(i, 1)) = ""

Next

k = d.keys

For i = 0 To UBound(k)

Set conn = CreateObject("adodb.connection")

conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" ThisWorkbook.FullName

Sql = "select * from [数据源$] where " title " = '" k(i) "'"

Dim Nowbook As Workbook

Set Nowbook = Workbooks.Add

With Nowbook

With .Sheets(1)

.Name = k(i)

For num = 1 To UBound(myArray)

.Cells(1, num) = myArray(num, 1)

Next num

.Range("A2").CopyFromRecordset conn.Execute(Sql)

End With

End With

ThisWorkbook.Activate

Sheets(1).Cells.Select

Selection.Copy

Workbooks(Nowbook.Name).Activate

ActiveSheet.Cells.Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Nowbook.SaveAs ThisWorkbook.Path "\" k(i)

Nowbook.Close True

Set Nowbook = Nothing

Next i

conn.Close

Set conn = Nothing

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

excel将一个工作表根据条件拆分成多个工作簿

返回Excel工作表界面,选择【开发工具】-【插入】-【表单控件】-【按钮】。

excel将一个工作表根据条件拆分成多个工作簿

选择完插入按钮后会弹出指定宏的界面,选定刚才插入的“CFGZB”宏,并确定。

excel将一个工作表根据条件拆分成多个工作簿

点击插入的按钮,根据提示选择标题行。

excel将一个工作表根据条件拆分成多个工作簿

excel将一个工作表根据条件拆分成多个工作簿

根据提示,选择要拆分的列标题,本例是“姓名”。

excel将一个工作表根据条件拆分成多个工作簿

excel将一个工作表根据条件拆分成多个工作簿

再次点击确定后,宏会自动运行。运行完毕后工作簿所在的同路径下会出现以每个人名命名的独立工作簿。打开每个单个工作簿就可以看到每个人自己的数据记录。

excel将一个工作表根据条件拆分成多个工作簿

excel将一个工作表根据条件拆分成多个工作簿

excel单元格拆分

excel拆分单元格的方式与合并单元格的设置方式相反,具体的设置方式和步骤如下:

1、在表格中选中并拉取需要拆分的单元格,使表格在一个圈选框中。

2、点击上方菜单栏的对齐方式中的合并单元格并居中,即可拆分。

3、单元格拆分完成后,所全选的表格就会拆分成原有格式,操作完成。

excel 如何根据首行内容 筛选并拆分表格?

J2=INDEX($A:$A,SMALL(IF(B$2:B$1000,ROW($B$2:$B$100),65536),ROW(A1)))""

数组公式,需要同时按  CTRL SHFIT  回车键,然后下拉

K2=VLOOKUP(J2,$A:$G,MATCH(K$1,$A$1:$G$1,),0)

下拉

其他城市同理

excel表格怎么分列拆分到指定位置

方法如下:

1、首先需要打开所要拆分的Excel表格。

2、输入数据,选中所要拆分的Excel表格,点击“数据的分列”选项。

3、完成上一步之后,点击“下一步”这个选项。

4、完成上一步之后,分别勾选Tab健、空格、连续分隔符号,点击“下一步”选项。

5、点击“完成”按钮,就可以完成操作了。

软件简介:

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。

excel同一单元格的内容怎么筛选拆分成不同单元格?

Excel拆分单元格的方法:选择数据区域,打开菜单栏的数据,进入分列,勾选分列符号,根据提示操作即可。

excel筛选分拆的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于excel筛选和分类汇总、excel筛选分拆的信息别忘了在本站进行查找喔。

本文转载自互联网,如有侵权,联系删除