excel表怎样快速把里面几千数据快速分成200一组的？请各位大神帮忙

发布网友 发布时间：2022-03-06 07:15

我来回答

共3个回答

热心网友 时间：2022-03-06 08:44

假设3000个数据在A列，在名称框中输入“ A201：A400" ，回车，就选中了200个数据，光标移到右边缘，变为十字矛，按住Shift和鼠标左键，拖到B列，这200个数据就移到B列了（这种操作称为块移动），下边的数据会自动向上填补空白，继续在名称框中输入" A201：A400",.......并块移动到C列.....多次操作，就200个数据一列了。
或者给数据做序号，1---200, 1---200......。
在第一个格输入1，点”编辑“----填充-----序列----勾选”列“-----终止值200----确定。1、2、3.......199、200就生成了。选中这200个序号”复制“，按CTRL+下箭头，光标指向200，再按一下下箭头，粘贴，就又有200号了，多次选中末尾空格，粘贴，就有多个200号了。

热心网友 时间：2022-03-06 10:02

1、在数据区域外，添加一个辅助列，输入以下公式，然后向下填充
=INT(ROW(A200)/200)
得到每200行，递增一个数字，然后在该辅助行的最下方，新添加1、2、3、4、……序号；
2、选择该列，复制并“选择性粘贴”为“数值”，然后对该列进行“升序”排序，并“扩展选定范围”，即可将原数据的每200行下方插入一个空行，以示区别。追问大神 我发给你一个表你帮我弄一下吧

追答邮箱：474054817@qq.com

热心网友 时间：2022-03-06 11:37

来源http://tieba.baidu.com/p/3315986877

mypath的赋值语句后面那截是文件的名称，自己改改。
在当前工作表下执行。
Sub copytowkb()

Dim i As Long
Dim rng As Range
Dim mypath As String

mypath = ThisWorkbook.Path & "\ASDFGHJKL滑动解锁什么这样也能重复_"

Application.ScreenUpdating = False

With ActiveSheet
For i = 1 To 10000
Set rng = .Range(i * 200 - 199 & ":" & i * 200)
If WorksheetFunction.CountA(rng) = 0 Then Exit For
If Dir(mypath & Format(i, "000") & ".xlsx") = "" Then
Workbooks.Add
rng.Copy ActiveSheet.Cells(1, 1)
ActiveWorkbook.SaveAs mypath & Format(i, "000") & ".xlsx"
ActiveWorkbook.Close
Else
MsgBox mypath & Format(i, "000") & ".xlsx" & Chr(13) & "文件名重复，不干了"
Exit For
End If
Next i
End With

Application.ScreenUpdating = True
End Sub