1，成功打开电脑中的excel表格后，点击菜单中的开始。
2，在打开的开始页面中，点击表格样式后面的下拉三角。
3，在弹出的表格样式下拉页面中，点击选择下方的新建表格样式。
4，在弹出的新建表样式对话框中，点击下方的格式，根据使用需求进行格式设置。
5，成功设置后，鼠标点击勾选设置为此文档的默认表格样式前面的对勾。
Excel工作表中，怎样在原有的表格上创建表？
1.在桌面中找到WPS应用，点击打开该应用，进入WPS主页面，如下图所示。
2.在WPS主页面中找到想要添加工作表的EXCEL表格，点击打开该表格，进入编辑页面，如下图所示。
3.在编辑页面中找到左上角保存选项，点击该选项进入表格编辑页面，如下图所示。
4.在表格编辑页面中找到右上方省略号图标，点击该图标调出功能页面，如下图所示。
5.在弹出的功能页面中找到添加选项，点击添加选项即可完成工作表表的添加，如下图所示。
6.添加完毕只有原工作表之后就会出现新的已添加的工作表，如下图所示。
如何快速把一个Excel工作表的数据，每两行生成一个新的Excel表格？
我也不会只提取第二行的数据，要是每个表只有2行，我的方法是合并所有文件到一个SHEET中，再删除奇数行，合并方法如下：
合并同一个目录下的多个表到一个SHEET
新建一个工作表，命名后保存到和与合并的多个个文件同一个文件文件夹，摁 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & \ & *.xls)
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName
If MyName AWbName Then
Set Wb = Workbooks.Open(MyPath & \ & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range(A65536).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range(A65536).End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range(A1).Select
Application.ScreenUpdating = True
MsgBox 共合并了 & Num & 个工作薄下的全部工作表。如下： & Chr(13) & WbN, vbInformation, 提示
End Sub
- 相关评论
- 我要评论
-
