一、一次性拆分

1.打开目标excel,按alt + f11键打开VBE窗口

2、在打开的窗口中输入以下代码：

Sub splitfile()
 Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%
 c = Application.InputBox("请输入拆分列号", , 4, , , , , 1)
 If c = 0 Then Exit Sub
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 arr = [a1].CurrentRegion
 lc = UBound(arr, 2)
 Set rng = [a1].Resize(, lc)
 Set d = CreateObject("scripting.dictionary")
 For i = 2 To UBound(arr)
 If Not d.Exists(arr(i, c)) Then
Set d(arr(i, c)) = Cells(i, 1).Resize(1, lc)
 Else
Set d(arr(i, c)) = Union(d(arr(i, c)), Cells(i, 1).Resize(1, lc))
 End If
 Next
 k = d.Keys
 t = d.Items
 For i = 0 To d.Count - 1
 With Workbooks.Add(xlWBATWorksheet)
rng.Copy .Sheets(1).[a1]
 t(i).Copy .Sheets(1).[a2]
 .SaveAs Filename:=ThisWorkbook.Path & "\" & k(i) & ".xls"
 .Close
 End With
 Next
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
 MsgBox "完毕"
End Sub

如下图所示：

3、点击运行，如下图所示：

4、然后输入按照某一列拆分的数字，列号是从1开始，如下图所示：

5、点击确定即可，拆分完毕后就会有提示框，如下图所示：

6、此时在源文件目录中就会生成对应的文件，如下图所示：

以上是每次拆分都要执行，而如果是想让上边的代码保存到excel中，那么就需要以下步骤：

二、重复拆分

1.打开目标excel,按alt + f11键打开VBE窗口

2.选择插入->模块粘贴下面代码到编辑器中

代码：

Sub splitfile()
 Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%
 c = Application.InputBox("请输入拆分列号", , 4, , , , , 1)
 If c = 0 Then Exit Sub
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 arr = [a1].CurrentRegion
 lc = UBound(arr, 2)
 Set rng = [a1].Resize(, lc)
 Set d = CreateObject("scripting.dictionary")
 For i = 2 To UBound(arr)
 If Not d.Exists(arr(i, c)) Then
Set d(arr(i, c)) = Cells(i, 1).Resize(1, lc)
 Else
Set d(arr(i, c)) = Union(d(arr(i, c)), Cells(i, 1).Resize(1, lc))
 End If
 Next
 k = d.Keys
 t = d.Items
 For i = 0 To d.Count - 1
 With Workbooks.Add(xlWBATWorksheet)
rng.Copy .Sheets(1).[a1]
 t(i).Copy .Sheets(1).[a2]
 .SaveAs Filename:=ThisWorkbook.Path & "\" & k(i) & ".xls"
 .Close
 End With
 Next
 Application.DisplayAlerts = True
 Application.ScreenUpdating = True
 MsgBox "完毕"
End Sub

如下图所示：

3、最后将该模块保存，此时会弹出如下对话框，如下图所示：

4、选择是即可

5、然后回到excel界面，点击文件，然后选择选项，如下图所示：

6、然后选择自定义功能区->开发工具选择上，如下图所示：

7、然后选择开发工具->插入->按钮，如下图所示：

8、然后在弹出的框中选择刚刚保存的模块，如下图所示：

9、此时会多出一个按钮，然后点击按钮即可运行模块，如下图所示：

10、运行之后输入要按那一列进行拆分，如下图所示：

11、点击确定之后即可开始分隔。

12、然后保存文件，之后每次打开文件都会有一个按钮，如下图所示：

13、因此该文件就不用每次都复制代码了。

转自：https://blog.csdn.net/qq_35893120/article/details/83826034

博主的话❤️：

大家好✨，这里是bio🦖。先赞后看养成习惯，还没关注的小伙伴点点关注不迷路。今天是南方的小年，祝福大家小年快乐。

前言

今天继续学习R语言，我们之前已经介绍过了数据合并（R语言合并数据框的行与列），现在来介绍数据的拆分。数据拆分主要使用两个函数分别是split()和subset()函数。

一、split()函数

split()函数用于根据给定条件拆分数据。

#根据给定条件拆分数据，返回保存拆分数据的列表
split(
  x #要拆分的向量或数据框
  f #保存拆分基准的因子
)

再次用我们的老朋友鸢尾花数据集作为例子：

split(iris,iris$Species)
$setosa
   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1           5.1         3.5          1.4         0.2  setosa
2           4.9         3.0          1.4         0.2  setosa
3           4.7         3.2          1.3         0.2  setosa
...
$versicolor
    Sepal.Length Sepal.Width Petal.Length Petal.Width    Species
51           7.0         3.2          4.7         1.4 versicolor
52           6.4         3.2          4.5         1.5 versicolor
53           6.9         3.1          4.9         1.5 versicolor
...
$virginica
    Sepal.Length Sepal.Width Petal.Length Petal.Width   Species
101          6.3         3.3          6.0         2.5 virginica
102          5.8         2.7          5.1         1.9 virginica
103          7.1         3.0          5.9         2.1 virginica
...

可以看到整个列表被分成了三部分，分别是$setosa，$versicolor，$virginica。
如果需要对不同品种计算Sepal.Length的均值。可以使用apply()系列函数中的lapply()函数（R语言apply系列函数）。
lapply()函数：

lapply(split(iris$Sepal.Length,iris$Species),mean)
$setosa
[1] 5.006

$versicolor
[1] 5.936

$virginica
[1] 6.588

tapply()函数：

tapply(iris$Sepal.Length,iris$Species,mean)
    setosa versicolor  virginica 
     5.006      5.936      6.588 

二、subset()函数

subset()函数返回符合条件的数据。

#返回向量、矩阵、数据框中符合条件的部分
subset(
  x #对象
  subset #是否要选取数据
)
subset(
  x 
  subset
  select #为数据框时，该参数为要选取的列
)

例如从鸢尾花数据集中选取setosa品种的鸢尾花数据：

subset(iris,Species == "setosa")
   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1           5.1         3.5          1.4         0.2  setosa
2           4.9         3.0          1.4         0.2  setosa
3           4.7         3.2          1.3         0.2  setosa
4           4.6         3.1          1.5         0.2  setosa
...

当条件较多时，可以使用and等运算符，例如：

subset(iris,Species == "setosa" & Sepal.Length > 5.0)
   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1           5.1         3.5          1.4         0.2  setosa
6           5.4         3.9          1.7         0.4  setosa
11          5.4         3.7          1.5         0.2  setosa
...

selec参数可以选取或者排除特定列。例如：

#选取特定列
subset(iris,select = c(Sepal.Length,Species))
    Sepal.Length    Species
1            5.1     setosa
2            4.9     setosa
3            4.7     setosa
4            4.6     setosa
5            5.0     setosa
...
#排除特定列
subset(iris,select = -c(Sepal.Length,Species)) #添加减号“-”
    Sepal.Width Petal.Length Petal.Width
1           3.5          1.4         0.2
2           3.0          1.4         0.2
3           3.2          1.3         0.2
4           3.1          1.5         0.2
5           3.6          1.4         0.2
...

总结

以上就是今天要讲的内容，看到这里的小伙伴给大恐龙🦖点点赞，点点关注！平时要多加练习，有问题可以留言交流哦！

ARCGIS中按照某字段属性批量导出shp ，即将一个shp图层分割成单个的shp。具体使用arctoolbox--分析工具--提取分析--按属性分割功能实现。

步骤如下：

一、arcmap打开要分割的文件

二、使用按属性分割功能进行分割