一个非常庞大的excel表格 里面全是数据 每一组有五个 想要把其中三个连续的数据删除怎么办啊
答案:5 悬赏:20
解决时间 2021-02-21 20:42
- 提问者网友:相思故
- 2021-02-21 17:29
数据量非常庞大 又没有编程的高手啊 跪求啊
最佳答案
- 二级知识专家网友:没感情的陌生人
- 2021-02-21 18:42
解决思路:将4.6.7.8.10.11
写到Sheet2的A1,然后分列。再判断是不是有连续3位是否为相邻的!
设置一个按钮,指向相面的代码:
Sub ouyangff()
k = [i65536].End(3).Row
For i = 6 To k
Sheet2.Select
Rows("1:1").ClearContents
[a1] = Sheet1.Cells(i, 9)
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1)), TrailingMinusNumbers:=True
t = 0
For j = 1 To 6
If Cells(1, j) + 1 = Cells(1, j + 1) And Cells(1, j + 1) + 1 = Cells(1, j + 2) Then t = 1: Exit For
Next j
If t = 1 Then Sheet1.Cells(i, 11) = "X"
Next i
Sheet1.Select
End Sub
处理后再按K列排序就可以将你需要的数据分离出来了!
祝你工作顺利 !!!
写到Sheet2的A1,然后分列。再判断是不是有连续3位是否为相邻的!
设置一个按钮,指向相面的代码:
Sub ouyangff()
k = [i65536].End(3).Row
For i = 6 To k
Sheet2.Select
Rows("1:1").ClearContents
[a1] = Sheet1.Cells(i, 9)
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1)), TrailingMinusNumbers:=True
t = 0
For j = 1 To 6
If Cells(1, j) + 1 = Cells(1, j + 1) And Cells(1, j + 1) + 1 = Cells(1, j + 2) Then t = 1: Exit For
Next j
If t = 1 Then Sheet1.Cells(i, 11) = "X"
Next i
Sheet1.Select
End Sub
处理后再按K列排序就可以将你需要的数据分离出来了!
祝你工作顺利 !!!
全部回答
- 1楼网友:放肆的依賴
- 2021-02-21 21:11
把表格给我,我给你想想办法。。。
[email protected]
- 2楼网友:强势废物
- 2021-02-21 20:27
在工作表中显示或隐藏所有零值 1.在“工具”菜单上,单击“选项”,再单击“视图”选项卡。 2.请执行下列操作之一: 若要在单元格中显示零值 (0),则选定“零值”复选框。 若要将含有零值的单元格显示成空白单元格,则清除该复选框。 在选中的单元格中使用数字格式以隐藏零值 请按照以下过程进行操作,在所选单元格中隐藏零值。如果这些单元格中某一个单元格的值更改为非零值,则该值的格式将类似于“常规”数字格式。 1.选择包含要隐藏的零 (0) 值的单元格。 2.在“格式”菜单上,单击“单元格”,再单击“数字”选项卡。 3.在“分类”列表中,单击“自定义”。 4.在“类型”框中,键入“0;-0;;@”。
- 3楼网友:转身后的回眸
- 2021-02-21 20:07
紧贴你的数据区插入2列,例如为A、B两列,A列为行号,B1输入公式=mod(A1,5).然后所有数据按照B1列排序,把你不需要的数据直接删掉就行了
用不着VBA,不要想太复杂了
- 4楼网友:堕落奶泡
- 2021-02-21 19:48
假设:单元格A1开始储存原始数据,B、C列辅助
从B1输入公式:
=A1&ROW()-MOD(ROW()-ROW($A$1),5)
C3输入公式:
=IF(MAX(COUNTIF(B1:B3,B3),COUNTIF(B2:B4,B3),COUNTIF(B3:B5,B3))=3,"Dup","")
B1、C3公式下拉填充至A列数据最后数据,删除显示“Dup”的数据。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯