Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2554|回复: 2

[已解决]每隔10行删除100行

[复制链接]
发表于 2014-12-14 03:45 | 显示全部楼层 |阅读模式
1、编写代码
2、在工作表4,每隔10行删除100行
最佳答案
2014-12-14 04:57
  1. Dim t%
  2. Sub Macro1()
  3. t = t + 1
  4. If t <> 1 Then Exit Sub
  5. Dim arr, brr, i&, j&, k%, s&
  6. arr = Sheets("4").UsedRange
  7. ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
  8. For i = 1 To UBound(arr) Step 110
  9.     For j = i To i + 9
  10.         s = s + 1
  11.         For k = 1 To UBound(arr, 2)
  12.             brr(s, k) = arr(j, k)
  13.         Next
  14.     Next
  15. Next
  16. Sheets("4").UsedRange.ClearContents
  17. Sheets("4").Range("a1").Resize(s, UBound(brr, 2)) = brr
  18. End Sub
复制代码

每隔10行删除100行.rar

33.24 KB, 下载次数: 5

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-12-14 04:57 | 显示全部楼层    本楼为最佳答案   
  1. Dim t%
  2. Sub Macro1()
  3. t = t + 1
  4. If t <> 1 Then Exit Sub
  5. Dim arr, brr, i&, j&, k%, s&
  6. arr = Sheets("4").UsedRange
  7. ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
  8. For i = 1 To UBound(arr) Step 110
  9.     For j = i To i + 9
  10.         s = s + 1
  11.         For k = 1 To UBound(arr, 2)
  12.             brr(s, k) = arr(j, k)
  13.         Next
  14.     Next
  15. Next
  16. Sheets("4").UsedRange.ClearContents
  17. Sheets("4").Range("a1").Resize(s, UBound(brr, 2)) = brr
  18. End Sub
复制代码
回复

使用道具 举报

发表于 2014-12-14 05:18 | 显示全部楼层
本帖最后由 baksy 于 2014-12-14 10:30 编辑

函数解决~
新建工作表,A1单元格复制以下公式,横拉、下拉;
=OFFSET('4'!$A$1,INT((ROW()-1)/10)*110+MOD((ROW()-1),10),COLUMN()-1)&""
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:11 , Processed in 0.341867 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表