设为首页收藏本站

Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 124|回复: 5

[求助] 提取的数据按指定行数放置,哪位老师能赐教一下,谢谢!

[复制链接]
发表于 2017-1-11 21:39 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
老师好!
怎样提取A:C列和R:S列的数据到表二的A3以下的指定行数的区域里(行数必需是能动态指定的,比如可能统一35行或者统一40行,根据需要来决定)。
不知老师能否帮忙一下?先谢啦!

提取的数据按指定行数放置.zip

20.92 KB, 下载次数: 9

发表于 2017-1-11 23:14 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-1-12 10:01 | 显示全部楼层
谢谢today0427大师的关注和赐教!
      表二现有的数据是示例,就是说表二的A:E列放置40行,F:J列放置40行,K:O列放置40行,A:E列放置40行,P:T列放置40行......以此类推。
      大师能否帮忙下?先谢啦!
回复 支持 反对

使用道具 举报

发表于 2017-1-13 01:15 | 显示全部楼层
本帖最后由 today0427 于 2017-1-13 08:33 编辑

大师是什么鬼?不要乱叫 答案显示在sheet3表中

  1. Sub today()
  2.     Dim n%, arr, i&, brr(), zls%
  3.     Call qc
  4.     n = Application.InputBox("ÇëêäèëÖ¸¶¨DDêy", "ìáê¾", 40, , , , , 1)
  5.     If n = 0 Then Exit Sub
  6.     arr = Sheet1.Range("a4:x" & Sheet1.[c65536].End(3).Row)
  7.     zls = 5 * Application.Ceiling(UBound(arr) / n, 1)
  8.     ReDim brr(1 To n, 1 To zls)
  9.     co = 1
  10.     For i = 1 To UBound(arr)
  11.         ro = ro + 1
  12.         If ro > n Then ro = 1: co = co + 5
  13.         brr(ro, co) = arr(i, 1): brr(ro, co + 1) = arr(i, 2): brr(ro, co + 2) = arr(i, 3)
  14.         brr(ro, co + 3) = arr(i, 18): brr(ro, co + 4) = arr(i, 19)
  15.     Next
  16.     With Sheet3
  17.         Sheet2.Range("a2:e2").Copy .[a2].Resize(1, zls)
  18.         .[a3].Resize(n, zls) = brr
  19.         .Activate
  20.     End With
  21. End Sub
  22. Sub qc()
  23.     Sheet3.UsedRange.ClearContents
  24. End Sub
复制代码


提取的数据按指定行数放置.rar

58.21 KB, 下载次数: 6

评分

参与人数 1经验 +3 收起 理由
laoau138 + 3 来学习

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2017-1-13 23:02 | 显示全部楼层
today0427 发表于 2017-1-13 01:15
大师是什么鬼?不要乱叫 答案显示在sheet3表中

VBA看图片规则计算A列结果

http://www.excelpx.com/thread-427160-1-1.html


回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2017-1-21 14:19 , Processed in 0.140400 second(s), 28 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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