录制宏一段宏，因数值多，求改写成vba代码

来源：蜘蛛抓取(WebSpider) 时间：2018-07-18 19:37 标签： 录制新宏
1.4K32 条评论分享收藏感谢收起赞同 91665 条评论分享收藏感谢收起查看: 1207|回复: 8
想写一段宏代码，打开指定的文件整理格式后粘贴复制到当前工作表
阅读权限20
在线时间 小时
工作簿1是主工作簿，工作簿2是数据源工作簿。打开工作簿1后，如何用宏代码实现:
1，打开工作薄2，删除工作簿2中的空白行和列
2，复制工作薄2中不为空的部分
3，在工作薄1中的sheet1的A2单元格开始粘贴
请高手多多指教，本人菜鸟，看教材入门中，感觉很吃力啊
阅读权限100
在线时间 小时
再吃力也得弄个附件上传吧？&&&&&&&&&&&
阅读权限20
在线时间 小时
& & & & & & & &
补上附件。
template是每天需要做的一个report，rawdata是从系统里面download的源数据，
1，每天都需要删除rawdata里面没用的1到4行，以及A列和C列，
2，然后复制到template里面的rawdata sheet的（从A2单元格开始贴，因为表头有时候会变动影响做数透），
3，然后把template rawdata里面的S列到Z列公式向下填充满
4，刷新数据透视表得到结果
目前看教材step 1,2我已经写出来了，但是不知道怎么把整理好的rawdata复制粘贴到template，求高手指点step3,4,
07:08 上传
点击文件名下载附件
65.62 KB, 下载次数: 10
阅读权限20
在线时间 小时
再吃力也得弄个附件上传吧？&&&&&&&&&&&
抱歉，附件补上了，烦请前辈帮忙指点，先谢过了
阅读权限20
在线时间 小时
在线等啊，求帮忙，求指点啊
阅读权限95
在线时间 小时
& & & & & & & &
在线等啊，求帮忙，求指点啊
跨工作簿取数，看一下这个帖子。。。
阅读权限20
在线时间 小时
跨工作簿取数，看一下这个帖子。。。
搞定了，多谢。
补充一个问题，VBA中如何表达变动的区域？比如数据在A列到D列中，ABC三列是源数据引用过来的，行数不固定，当ABC三列引用过来后，D列是根据ABC三列源数据做好的公式，然后D列向下填充到跟ABC同样的行数。
这里就是不知道怎么表达这个变动的D列，烦请指点，多谢
阅读权限95
在线时间 小时
搞定了，多谢。
补充一个问题，VBA中如何表达变动的区域？比如数据在A列到D列中，ABC三列是源数据引用 ...
& &&&lr = wbkOpen.Worksheets(1).Range(&c65535&).End(xlUp).Row
& & wbkOpen.Worksheets(1).Range(&c1:c& & lr).Copy wbkThis.Worksheets(1).Range(&A1&)
理解了这两句，行数不固定的自己就会写了，更多基础问题的可加一下我QQ。
感谢热心帮助
阅读权限95
在线时间 小时
搞定了，多谢。
补充一个问题，VBA中如何表达变动的区域？比如数据在A列到D列中，ABC三列是源数据引用 ...
另外，用了ＶＢＡ，一般就不用公式了。。。。
是的，菜鸟学习中，加你qq了，日后还请多指.
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 792|回复: 4
请大侠帮我编一段宏代码：解决自动调整字体大小和行高
阅读权限10
在线时间 小时
本帖最后由 wujunbo 于
15:45 编辑
请大侠帮我编一段宏代码：解决根据人数的多少自动调整字体大小和行高：
要求：（1）当有数据的行数小于50时不更改（行高14.25，字体大小12号）
（2）当有数据的行数大于50（一般不超过70）时，第一行和第二行不变，其他有数据的行自动调整行高，使有数据的所有行为一页，并调整除第一行和第二行外所有单元格内字体的大小以适应行高
————VBA我还是一个小白，想这个问题很久了，网上搜了很多贴也没有令人满意的（主要是不适合我需要的），希望大侠帮帮我
15:22 上传
点击文件名下载附件
186.53 KB, 下载次数: 9
阅读权限100
在线时间 小时
& & & & & & & &
根据人数的多少自动调整字体大小和行高
18:32 上传
点击文件名下载附件
196.52 KB, 下载次数: 56
阅读权限10
在线时间 小时
刚测试了一下，是我想要的！谢谢大侠了！
阅读权限10
在线时间 小时
& & & & & & & &
本帖最后由 wujunbo 于
18:32 编辑
根据人数的多少自动调整字体大小和行高
请教大侠，单元格内写有函数，如果要调整的是用函数调用出来有数据（没有数据是指用用if函数把& &写入单元格了)的行更改字体大小和行高应当如何写代码？
阅读权限10
在线时间 小时
请教大侠，单元格内写有函数，如果要调整的是用函数调用出来有数据（没有数据是指用用if函数把& &写入单 ...
已经解决，把r的值设置成统计出来的数据个数就行了
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1595|回复: 7
求一段宏，跨表格数据相加
阅读权限10
在线时间 小时
大概意思，就是一个母公司有很多子公司，一个子公司有一个资产负债表，现在要评估母公司的规模，所以要把所有子公司的资产相加。
所有子公司的数据时现成的，希望能自动生成母公司的资产合计表，我上传了附件表明了大概意思
1 我首先想到了在母公司的表中，录宏-合并计算，可是子公司较多，合并计算的宏也似乎不能掺乎通配符，所以不是那么便捷
2 我然后想到了dir，不过学艺不精，套上循环相加不是很会用
还请大家帮忙开阔一下思路，解决我的问题，谢谢赐教！
20:08 上传
点击文件名下载附件
18.14 KB, 下载次数: 16
阅读权限30
在线时间 小时
& & & & & & & &
怎么不传完整的资产负债表格式。。。
阅读权限95
在线时间 小时
假设每个子公司表格都是一致的:Sub Macro1()
& & Dim p$, f$, arr, brr, i&, j&, lr&, n&
& & Application.ScreenUpdating = False
& & p = ThisWorkbook.Path & &&
& & f = Dir(p & &*.xlsx&)
& & Do While f && &&
& && &&&n = n + 1
& && &&&With GetObject(p & f)
& && && && &With .Sheets(1)
& && && && && & If n = 1 Then
& && && && && && &&&lr = .[a:e].Find(&*&, , -4163, , 1, 2).Row
& && && && && && &&&arr = .Range(&a1:e& & lr)
& && && && && & Else
& && && && && && &&&brr = .Range(&a1:e& & lr)
& && && && && && &&&For j = 2 To 5 Step 3
& && && && && && && && &For i = 2 To lr
& && && && && && && && && & If Len(brr(i, j)) Then arr(i, j) = arr(i, j) + brr(i, j)
& && && && && && && && &Next
& && && && && && &&&Next
& && && && && & End If
& && && && &End With
& && && && &.Close False
& && &&&End With
& && &&&f = Dir
& & Loop
& & Cells.ClearContents
& & Range(&a1:e& & lr) = arr
& & Application.ScreenUpdating = True
End Sub
复制代码
阅读权限95
在线时间 小时
(30.01 KB, 下载次数: 33)
22:24 上传
点击文件名下载附件
阅读权限10
在线时间 小时
zhaogang1960 发表于
假设每个子公司表格都是一致的:
代码有几个地方不太懂，还请指教
1 这段代码里，是哪段禁止activeworkbook相加了吗？如果没有，怎么防止把当前工作表再加一遍呢？
2 Find(&*&, , -4163, , 1, 2)，请问这几个参数分别代表？
3 22行 close false ：我看《别怕》的时候，就有这个疑惑，我也没open工作表，何来close呢？
由于《别怕》还没看完，道行尚浅，还请版主赐教
阅读权限95
在线时间 小时
首席爱你 发表于
代码有几个地方不太懂，还请指教
1 这段代码里，是哪段禁止activeworkbook相加了吗？如果没有，怎么防止 ...
一、请参阅VBA帮助Dir函数，这种Do循环不可能出现再加一遍
二、.Find(What:=&*&, LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
三、 GetObject(p & f)——后台打开工作簿，除了看不见、不能使用很多参数外，其他同Open方法
阅读权限10
在线时间 小时
如果每个表格中有多个Sheet，应该怎么处理呢，谢谢！
阅读权限95
在线时间 小时
yaki_wu 发表于
如果每个表格中有多个Sheet，应该怎么处理呢，谢谢！
把针对.Sheets(1)改为:
For each sh in .Sheets
& && &with sh
& && &end with
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师1.4K32 条评论分享收藏感谢收起赞同 91665 条评论分享收藏感谢收起

我要回帖

更多关于 录制新宏 的文章

 

随机推荐