2023-06-03 00:03来源：m.sf1369.com作者：宇宇
第一步：选中待调整列，将光标移至该列左右任意一侧边缘，呈四向箭头形状。
第二步：按住shift键不放，拖动鼠标至待插入位置，松开鼠标左键完成。(注意：在松开鼠标左键之前，不能先放开shift键。)
2、巧妙删除空白列-转置
Excel只能筛选行，不能筛选列，如果要删除多个空白列，则需要借助数据转置批量完成。
第一步：复制所有数据;
第二步：在待粘贴处，右键点选“选择性粘贴”，勾选“转置”并确定;
第三步：在任意列筛选“空白”并删除所有空白行;
第四步：再次使用数据“转置”完成。
1、打开文件中有商品名称、单价、数量及金额，通常我们要做的是在每一项商品里录入单价和需要的数量，然后计算金额。我们可以利用excel表格里面的运算公式，让软件自动计算出每一项金额，我们要做就是确保：单价和数量的正确。
2、运算公式的使用是这样的：首先在表格里面选定合适的位置，然后输入：等于“=”开始执行计算数据类型，求和的话我们一般使用：“=SUM(G1：G7)”公式。,其中，SUM指的是求和命令，G指的是表格的纵向，1指的是表格的横向。
3、假设在一个excel表格里面，需要处理几百项数据甚至几千万数据，可以在其中一行的一个项，写好计算公式，然后用鼠标往下拉复制，便可以轻松快速得出结果。
4、这是单项相乘的运算方法；公式是：“=D2*E2”，意思为：D纵列的第2行和E纵列的第2行相乘，得出的结果会在G纵列的第2行显示出来。
5、在表格里面做好相对应的名称，在D纵列的第2行输入公式:=表一!G9,意思是：在这个框里面，链接“表格一”里面的“G纵列的第9行”数据，即总价的金额。
Sub 拆分表格()
Dim i&, iBT$, irow&, iNm$, k%
iBT = InputBox(请输入标题的行数： & vbLf & vbLf & 如没标题有请填0, 标题行数, 1)
If iBT = Then Exit Sub
iNm = ActiveSheet.Name
irow = Range(A & Rows.Count).End(3).Row
For i = Val(iBT) + 1 To irow Step 1000
k = k + 1
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = 数据表- & k
If Val(iBT) > 0 Then Sheets(iNm).Rows(1: & iBT).Copy Range(A1)
Sheets(iNm).Rows(i & : & i + 1000 - 1).Copy Range(A & Val(iBT) + 1)
Next
Sheets(iNm).Select
MsgBox 处理完毕！, , 提示
End Sub
Excel自带有VBA的，建议用VBA来处理这样的数据。
可以用一个for循环，步长值为1000，每次把一千行数据写入或者复制到新建的工作表中，当然也可以新建工作簿，再把数据写入其中的工作表中并保存成指定规则的名称。
几十万条数据分成几百个表，运行代码可能也就几分钟就完事了。不过写代码需要一些时间的。
思路如上，可参考。
添加一个辅助列，通过循环序号分类也行，通过其他分类也行。然后，通过数据透视表，可以自动分成多个分表。
新建并打开excel表格，添加数据分析插件，点击左上角按钮，出现菜单页面，选中右下角EXCEL选项按钮，点击之后，然后点击加载项选项，选中分析工具库，点击下方转到按钮出现excel加载宏界面，在分析工具库前方框内打勾，点击确定,添加数据分析插件，在数据数据分析下可以找到然后点击数据分析，可以找到相关的分析方法，如 回归分析，方差分析，相关分析等。
Sub 拆分()
Dim X, I, R
X = (Range(A65536).End(xlUp).Row - 1) / 1000
For I = 1 To X
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = I
Next
For k = 2 To Range(A65536).End(xlUp).Row Step 1000
n = n + 1
Sheets(n + 1).Select
arr = Range(Cells(k, a), Cells(k + 9, H))
brr = Range(a1:h1)
Sheets(n + 1).[A1].Resize(1, 8) = brr
Sheets(n + 1).[A2].Resize(10, 8) = arr
Next
End Sub
